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: 1 001 0 module Lnk_maproutines ' LINKER MAP ROUTINES 

: ¢ 000 0 Cident = 'V04-000' 

; 000 ,addressing_mode 

; 4 0004 (external = generat 

: 5 0005 nonexternal = long_relative 

Pate 0006 0 j 

$ 7 000 3 d= 

H 8 0008 1 begin 

: y 0009 1! 

3 19 Bag } LR RRA 
: '® * 
$ i Oot¢ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
‘=. 3 0015 1 !* DIGITAL So ly CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \ Bote ! 7 ALL RIGHTS RESERVED * 
: '® * 
5 UW0i6 1 !* THIS he * . FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
Oe 0017 1 !* ONLY IN ACCOR E WITH MS OF SUCH LICENSE AND WITH THE * 
; 0018 1 !* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS R ANY OTHE * 
i 0019 1 !* COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
F $3 bos) 1 ? TRANSFERRED. * 
; :* ® 
ae $053 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; «2 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $2 oo52 : pe CORPORATION. * 
s '@ % 
“ae i 0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $s Baee : ‘be SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; ! * 
; $080 1 !e * 
: He oo, LS eee eee RRR RARER AAA AAA AAA AAA AAA AAA AAR 
; 00 1 

5 a $038 1 !44 

; | 634 0034 1 ! FACILITY: LINKER 

c= 0035 1! 

: 36 0036 1 ! ABSTRACT: PRODUCES THE MAP 

oe 0037 1! 

;- 2 0038 1 ! ENVIRONMENT: 

; 0039 1! 

; 79 re : : AUTHOR: K.D. MORSE, CREATION DATE: 27-MAR-77 

: i ' 

3; 642 0042 1 ! MODIFIED BY: 

: 43 0045 7! 

3; 644 0044 1! V03-007 ADE0004 Alan D. Eldridge 22-Jun- -1984 

: 6 0045 71! Adhere to Grammer Rules for output file spec's as defined 

3 rt Bnee ! in the Command Language User's Guide. 

s 6 0048 1! v03-006 peepee’ Alan D. Eldridge 29-Apr-1984 

; 49 0049 1! Don't Suppress zero Lengthed P ECT? s from the Program 

3 20 Boas : } Section Synopsis. 

i ae 0026 ee v03-005 pocepes Alan D, Eldridge 12-Apr-1984 

; 2 2s ee Use ‘output file parse’ option only if /MAP oan not 

; ze O38 ' a command cual ttler. 

s> 056 1! V03-004 ADE0001 Alan D. Eldridge 5-Mar-1984 

; 0057 1! Call LIBSTRIM_ FILESPEC to appropiately trim file names. 
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v03-003 JwT0113 Jim Teague 20-Apr-1983 
Call $getjpi to get number of open files left. 
v03-002 guroots Jim Teague 30-Jul-1982 


pen file ai sees boost. 


vO3-001 JwT0038 ~ a 23-Jun-1982 
Clean up INFO#21 eis 


ee eee 


- 
+ 


MODULE DESCRIPTION: 
THIS MODULE CONTAINS ALL Me ROUTINES ae tha TO CREATE A MAP FOR THE 
LINKER. THERE IS A GLOBAL ROUTINE TO PRODUCE EACH SECTION OF 
THE MAP AND SEVERAL LOCAL SUBROUTINES TO HANDLE THE ACTUAL OUTPUT. 
THE wat etre OF THE GLOBAL ROUTINES ARE: 

NKSMAP INI 


N 
LNKSMAPMHD (OBJREC, OBJMODDSC) 
LNKSMAPLNG(LANGADDR,, » LANGLEN) 


) 

NEADDR, COUNT) 

WHERE: 
OBJREC IS THE ADDRESS OF A MODULE HEADER RECORD (SEE OBJFMT) 
OBJMODDSC IS THE ADDRESS OF AN OBJECT MODULE DESCRIPTOR (SEE DATBAS) 
LANGADDR IS by ones ey Lnsuaee wHiitae RECORD 


LANGLEN E 
LINEADDR IS THE ADDRESS OF A LINE TO BE OUTPUT TO THE MAP (E.G. ERROR MESSAGES) 
COUNT IS THE NUMBER OF BYTES IN THE OUTPUT LINE 


rm 
2 
nn 
~ 
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TABLE OF CONTENTS: 
forward routine 


Lnk$mapinit 
Lnk$c Losmapfil 
repress 
Lnk$mapmhd 
ink$maplng 
Lnk$mapadromd 
Lnk$mappscts 
Lnk$mapsyms 
Lnk$mapiscts 
Lnk$Smapstats 


mapsubhdr, 
cont ie ° 
newline; 


INCLUDE FILES: 


library ‘L18L32'; 
require ‘PREFIX'; 
library ‘DATBAS'; 
require ‘ISGENC'; 
require ‘CRFMDL'; 


: EQUATED SYMBOLS: 


global literal 
Len$c_mapline = 
len$c_lngnam = 


iow’ fld_l 

ate ng = 
mej Téent lee s 
min_ident_\ng = 
max_k_rmsmbc = 
boxTines = 


: OWN STORAGE: 

psect 

oun 

FAO CONTROL STRINGS 


a ee a eB ee a ee a ed ed ed od od dd od dd 
. 


contrbstr 


: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 
: novalue, 


: descriptor ("!16AC!15AC!3(9XL) (!11UL.) !'5AC!1ZB"), 


i OUTPUT NEW PA 
i OUTPUT BLANK 


1k OR GESRY Wada beh Rathi? 


LINK LNKMAPRTN.B32;1 


— DATA 
R SYMBOLS 
YNOPSIS 
Ics 
FORMATTED 


R_ LINE AND OUTPUT IT 
ER, AND SUB-HEADER 


oorr-araAoOeO re 


o 
r] 
mm 
Pd 
=~ 
m 
> 
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RUCTURE DEFINITIONS 
AL DEFINITIONS 
DATA BASE DEFINITIONS 
T LANGUAGE RECORD FORMAT ANE ISD LAYOUT 
D DEFINITIONS 


LENGTH OF LINES ON THE MAP 
MAXIMUM LENGTH OF MODULE CREATOR NAME 


DENT 
FOR RMS BLOCK 


MAXIM ER ING 
NUMBER OF LINES IN BOX HEADINGS 


own = $plit$(nopic, concatenate, local, noshare, noexecute, nowrite); 


! PSECT CONTRIBUTION 
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LNK_MAPROUTINES 18- Sep-19 5:38 AX=-11 Bliss-32 V4.0-7 Page 
v04=000 1esep-19RG fo:e0s37 LU TNKER SRESLAMAPRIN. 682; 1 it 
: MY} eamarneed, i enerdptor SC HRUAELEARIY ettuL.) isacttzny 
; : descriptor ('! , P 
; 158 8 § 1 contrbst : descriptor aairta Gone C!17UL. ; + ate tH 4 “7 
: 159 0723 1 psc_entri_str : descriptor (*!16ACi15AC! COL) (14 1104 5) Sac fa B !10(AC)"), 
> 160 8 4 1 sc_cntrl_stl : descriptor (*!31AC! AoKt) (! Whe? AC!268 ! ys 
: 19) Bf 2 : dr-cntrizstr : descriptor ("!64AS!25<!17%Di>! 33<VAK=11 Linker ViAD~! stab back useoine 
: 188 0727 1 ff_cntril_str : descriptor ('!*") W PA 
; 168 4 3 ! * md. centr. “$f : ert oa cs deAe Ae: Tou '37AD!19AD'), OB) MOD SECTION 
: 166 0730 1 objmd_cntri-st2 : descriptor ('! 1AC!16UL !37AD!19AD"), 
> 167 O73) 1 creat_cntrl_str : descriptor a ta ! CREATOR OF MODULE 
: 1e9 Bras | Sperwchil nee’ s Geeeripeer PLT si tteeenks ree ee 
: 170 0734 1 abbrvtbl2-str : descriptor ('!"!"!!tacti"), 
; 17) 145) } isect. ocntrl pees : descriptor C+ 1T6RC{4uB i éuw '2AC!8XL!2AC!9UL!4UB !AC !AC !AC"), 
; 178 oar ! . Ars tayl ie '2AC!8XL!2AC!9UL!4UB!28< !AC !AC !AC!>!16AC !12AC '6UB !8UL"), 
: 17? 1894 : FAO CONTROL STRINGS FOR LINK-WIDE SYNOPSIS 
: 177 0741 1 virmemLine : descriptor ('!49¢Virtual memory gg ees 2 1>!3(9XL) C!UL. byte!%S, !UL. page!%S)"), 
; «178 ores 1 stackline : descriptor (°!50<Stack size:!>!8UW. page! 
3; 179 0743 1 aenreras’ : descriptor ('!50<Map format: !>! ACTACT AS tits 'AD"), 
; 180 0744 1 mapl anate : descriptor (* i50cEstimated map Length:!>!UL. block , 
s 81 0745 1 imghdrblkline =: descriptor ('!50<Image header virtual block Limits: 1! BUL.!9UW. (!SUW. block!%S)"), 
: 6182 0746 1 imgbinblkline  : descriptor tc iaherneue binary virtual block Limits: i>! 8UL. '9UL. (!5UW. block!%S)"), 
: 13? EOE 4 ; seeer i ine : peace pee 4 ; iepeenege nome “te es:is au), '>!AC !AC'), 
; n ne : descriptor (‘ umber . 
> «185 0749 1 nmodline : descriptor ('!50<Number . be phn i>'guw. ys 
; «186 0750 1 npscline : descriptor ('!50<Number of program sections: tes ! NO. OF P=SECTS IN LINK 
3 187 0751 1 nsymLine : descriptor ('!50<Number of global symbols: '>i Uw. * ' NO. OF GLOBAL SYMBOLS 
; «188 0736 1 nundf line : descriptor ats OT. undefined count of: isu, 7 ! NO. OF UNDEFINED SYMBOLS 
; 189 0753 (1 ncrosrefs : descriptor (°!50<Number of cross references: '>iBuw.* 
: 190 0754 1 niscline : descriptor ('!50<Number of image sections: fguu. NO. OF IMAGE SECTIONS 
: «6191 0755 1 nadrefline : descriptor (°!50<Number of address fixups:!>!8UL.") NO. OF .ADDRESSES FIXED uP 
; 192 0756 1 nshrsymline : descriptor ('!50<Number of code references to shareable images: '>'BUL."), 
3; 193 0757 1 dbgtfrline : descriptor (°'!50 pecpepugees transfer address:!>! a '“ DEBUGGER TRANSFER ADDRESS 
3; 194 0758 1 otstfrline : descriptor (°!50<OTS transfer address - !AC: '>'BXL'S, OTS TRANSFER ADDRESS 
: «195 0759 1 usrtfrline : descriptor (°!50<User transfer address: '>'8xL'), ' USER TRANSFER ADDRESS 
: 196 0760 1 imgatrline : descriptor (°!50<Image type:!>!AC."), i IMAGE ATTRIBUTES LINE 
> 197 0761 1 imgshr line 2 descriptor ! IMAGE ATTRIBUTES LINE 
3 ios O76 : *150<Image type:!>!AC!AC. Global Section Match=!AC, Ident, Major=!UB, Minor=!UL") ; 
; 200 0764 1 bind 
: 201 0765 1 alignbyte = cstring ("BYTE '), ' BYTE ALIGNMENT ASCIC STRING 
; $06 0766 1 alignword = cstring (‘WORD '), ' WORD ALIGNMENT ASCIC STRING 
; 20 0767 1 alignion = cstring ("LONG '), ' LONGWORD ALIGNMENT ASCIC STRING 
Z 04 0768 1 alignqua = cstring (‘QUAD '), ' QUADWORD ALIGNMENT ASCIC STRING 
: 205 8768 1 Lign = cstring (‘2 ** '), ' OTHER ALIGNMENT ASCIC STRING 
: 509 ct 0 0) blame. ie cere ie i ASCIC STRING OF SPACE 
3 anks = cstrin ° : 
: 208 Ak 1 hyphens = cstring co=°) : ASCIC STRING OF HYPHENS 
3 209 773 (1 hyphen-r == estring ('-R'S, i ASCIC STRING OF HYPHEN AND "'R 
: 210 774 «1 p_hyphen = cstring ('P-") ' TO INDICATE SECTION IS PROTECTED 
s ei Boe 1 pic = cstring (° pit,"), ' PIC ATTRIBUTE ASCIC STRIN 
: gta 776 «(1 ib = cstring ("LIB,"), ' LIB ATTRIBUTE ASCIC STRING 
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LNK_MAPROUTINES 16-Sep-1984 :05:38 AX-11 Bliss-32 V4.0-74 Page 5 
v04=000 14-Sep-1984 00:08:83 LINKER.SRC LWEMAPRIN B82: 1 . (2) 
3 13 0777 #1 ovr = cstring ("OVR,'), ! OVR ATTRIBUTE ASCIC STRING 
: a bree 1 rel = estring ('REL,'), ' REL ATTRIBUTE ASCIC STRING 
: 15 0779 1 gbl = cstring ('GBL,') ' GBL_ATTRIBUTE ASCIC STRING 
: ei 0780 1 vec = cstring (' veéc's i VECTOR PSECT 
: 217 0781 1 shr = cstring (" SHR.'S, i SHR ATTRIBUTE ASCIC STRING 
; 218 b786 1 exe = cstring (* EXE,"), ! EXE ATTRIBUTE ASCIC STRING 
; <9 0785 1 rd = cstring (° RD,*) ' RD ATTRIBUTE ASCIC STRING 
; 220 0784 1 wrt = cstring (' wrt.'S, i WRITEABLE 
B del 0785 1 nopic = cstring (‘NOPIC,'), ! WRT ATTRIBUTE ASCIC STRING 
3; : 0786 1 usr = cstring ("USR,'S, i USR ATTRIBUTE ASCIC STRING 
5; ge 0787 1 con = cstring ('CON,'), ' CON ATTRIBUTE ASCIC STRING 
: $se ores 1 abs = cstring ('ABS,'), ! ABS ATTRIBUTE ASCIC STRING 
: 5 0789 1 icl = cstring (‘LCL,') ' LCL ATTRIBUTE ASCIC STRING 
> 226 0790 1 novec = estring (*NOVEC'S i NOT VECTOR PSECT 
s ger 0791 1 noshr = cstring ("NOSHR,'5, ! NOSHR ATTRIBUTE ASCIC STRING 
> 228 073¢ 1 noexe = cstring (*NOEXE,"), ! NOEXE ATTRIBUTE ASCIC STRING 
: ge 0793 1 nord = cstring ("NORD,*) ' NORD ATTRIBUTE ASCIC STRING 
; 230 0794 1 nowrt = cstring ('NOWRT,'S, i NOT WRITEABLE 
: 231 0795 1 exeimage = cstring (‘EXECUTABLE’), i EXECUTABLE IMAGE 
3 ge 0796 1 sys image = cstring (‘SYSTEM'), ' SYSTEM IMAG 
: ge 0797 1 shr image = cstring (° SHAREABLE'), ! AND LINKABLE IMAGE 
> 234 0798 1 briefmap = cstring (‘BRIEF') ! BRIEF MAP FORMAT 
3 235 0799 1 alltime = cstring ("ALWAYS'S, i GS MATCH = ALWAYS 
: 2 0800 1 never = cstring (‘NEVER'), ! GS MATCH = NEVER 
s gor 0801 1 equal = cstring ('EQUAL'), ! GS MATCH = EQUAL 
5 $35 0802 1 Lssequal = cstring (*LESS/EQUAL"), ' GS MATCH = LESS/EQUAL 
; 239 08035 1 defaultmap = cstring ("DEFAULT"), ! DEFAULT FORMAT 
; 240 0804 1 Longmap = ¢estring (‘FULL’) ' LONG FORMAT 
> 241 0805 1 cretmap = cstring (° WITH CROSS REFERENCE "Je ! WITH CROSS REFERENCES 
; seg 0806 1 readwrite = cstring ("READ WRITE’), 
; 24 0807 1 readonly = cstring (‘READ ONLY*) . 
3; 244 0808 1 demandzero = cstring ("DEMAND ZERO’), 
: 245 0809 1 copyonref = cstring (‘COPY ON REF"), 
; 246 0810 1 addrdata = cstring (*NON-SHAREABLE ADDRESS DATA"), 
> 247 0811 1 fixupsection= cstring ("FIXUP VECTORS"), 
; 248 ttt 1 chardef_str = cstring (' Key for special characters above:') : vector C, byte], 
3; 249 0813 1 undef_str = cstring (' * = Undefined § '), 
: 250 0814 1 univ str = cstring (" U = Universal '), 
; 251 0815 1 ext_str = cstring (' X = External Pe 
: $26 0816 1 reloc_str = cstring (' R = Relocatable '), 
: = 0817 1 weak_str = cstring (" WK = Weak « * 
: 254 0818 1 protect_str = cstring (° P = Protected '), 
: 255 0819 1 str_pointer = uplit (long (undef_str 
; ae pa39 1 euniv_str 
; go 0821 1 -reloc_str 
: goo 08 5 1 ,ext_str 
; 259 0823 1 , ; 5 sweak_str)) =: vector C, long], 
: 260 b8 4 1 istr_pointer = uplit (long (reloc_str, 
: 261 825 1 protect_str)) : vector C, long], 
: o¢ 0826 1! 
: rr o8 7 : BOXED HEADERS 
; 265 $8 § 1 imagesections = cstring ("! Image Section Synopsis !'), ! IMAGE SECTION HEADER 
> 266 0830 1 psecthdr = cstring ('! Program Section Synopsis !'), ' PSECT SECTION HEADER 
; 267 0831 1 objmodhdr = cstring ("! Object Modul» Synopsis !'), : OBJECT MODULE SECTION HEADER 
: 268 tt) 1 omdadrhdr = cstring ('! Module Relocatable Reference Synopsis !*), ! COUNT OF .ADDRESSES IN A MODULE 
3; 269 08 1 Linkwidehdr = cstring ("! Image Synopsis !"), ! LINK-WIDE INFORMATION HEADER 
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; 270 0834 
3 a! a8 5 
i She a83) 
: e275 0839 
g er pace 
s 2 0841 
; 278 aK, 
; 279 084 
; 280 844 
3 $B Bee 
: Sg P 0846 
; ae 0847 
: 284 P 0848 
; 285 0849 
3 sae 0850 
5 gor 0851 
: 288 O86 
; oP 085 
: 290 P te 
; 291 855 
: & 0856 
; a 0857 
: 294 0858 
: 295 0859 
; 296 0860 
: 297 P 0861 
: 298 P 086 
; 299 P 086 
: 300 0864 
; 301 P 0865 
s Tae 0866 
; 303 0867 
; 304 0868 
; ws 0869 
: 306 0870 
3 Sor 0871 
: 308 087 
: 309 087 
: 310 0874 
s 311 0875 
; \¢ 0876 
s 31 + 14 
: 14 P 0878 
. ws 0879 
; 316 P 0880 
: 317 0881 
1B 
: 320 6 

3 $i O86 
. on: 
; 3 $B89 
; 326 P 0890 


ce ce ce ee ee ee ce ed ce ee cee ee ee ce ee ce ee ee a ee ee ee ee ce ee cee ce ce el ee ee ce el ee ce ee ee ee ee ce ce ce eee el ee el ee ee ee ee 
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symbyname = cstring ("! Symbols By Name !'), 1 SYMBOL TABLE 
symbolcref = cstring ('! Symbol + Reference '"), 1 WITH CROSS REFERENCE 
(os tetey = cstring ('! pyapess ols By Value !'), : SYMBOL TABLE PRINTED BY VALUES 
Linkstats = cstring ("! Link Run tatistics 2) 5 : STATISTICS OF THE RUN 
1 
SUB-HEADERS 
own 
psectsubhdr : vector [4] 
initial 
oer eytres 
. ‘ — Name!>!18<Module Name!>!9<Base!>!14<End!>!18<Length!>! 22<ALign! >Attributes’) 
estrin 
CPEs 10en!>118¢! 11291919! awn! > 114d Feel >! 1 Bc Geel >! 22<! 5 ae! >! 10 ee') 
1 e 
aninetepner : vector [4] 
tr inptes 
: : HN é<odute Name!>!19<Ident!>!11<Bytes!>!36<File!>!19<Creation Date!>Creator') 
»strin 
.. IONE? oui sesamestandndeierncnteectbidoatevaenael 
omdadrsubhdr : vector [4] 
initial 
(stringdesc 
*!33<Module Name!>!8< NK :mber!> !33<Module Name!>!8< Number!> !33<Module Name!>!8< Number!>' 
ostringgese 
: C8TS3S<KI11te!>1B< Hh eet> 135K eel dBc Geet > 133K! 11 eHl >I Bc |b 6ae!>") 
' e 
crfsubhdi : descriptor ('<Symbol!>!16<Value!>!"), 
crfsubhd : descriptor ('<Defined By!2Referenced OP asa Pe 
crfsubhd : descriptor ('<!6w-!>!16<!5ee!>!"), 
crfsubhd4 : descriptor (‘<! 10*=!>!178=") | 
fao_crefsubhd : descriptor CHL LULTASIULIAS* j, 'FAOQ CONTROL STRING TO CREATE CRF SUB HEADER 
fao_crel : descriptor (*!!!ULAC'), 'FAO CONTROL STRING TO CREATE FAO CONTROL STRING 
; vector [4] 


syaeyehdr : 
initial 


leer teed 

a ‘ CPESS ymbol !>!19<value!>!16<Symbol !>!19<VaLue! '>!16<Symbol !>!19<Value!>! 16<Symbol ! >Value") 
str 
. TOVEST ...5s sbesttncint thethentntnettintst ieeiiant artes tautat tierttaeiertan 


SYMBOL TABLE SUB-HEADER USED IF LONG SYMBOL NAME SEEN 


syalogsubhdr : vector (4) 


(strin 
(79988 abot !>!12<value!>! 32<Symbol !>!12<Value!>!32<Symbol !>!12<Value!>*) 
Poe wh 
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¥04=006 1e788p-198e 83:40:37 EUTNKER’SRETLNKMMPRIN. B92: 1 12) 
i 999) ! C8321 6m! >!11 21S eel >! 32K Gee! >11 2c! Se! >! 321 bee! >!12<!5ae!>") 
3 9 $898 1! 
; 0 O83e 1 valsubhdr : vector [4] 
; 1 0895 1 initial 
; ¢ P bees 1 (stringdesc : 
; 344 ' (''40<Value!>Symbols..."),stringdesc('!40<!5#-!>!10e-') 
3 5 899 1! 
: 6 900 1 isdsubhidr : vector (4) 
: 7 901 1 initial 
3 : . 84 } (stringdesc 
: re P 4494 | *!16< Cluster! >t 2<Type! ai OcPages!>{St<iAc!>t t<lebat Sec. Name!>!12< Match!> Majorid Minorid’ 
3 a0¢ P 0906 1 »stringdesc 
; 0907 1 C'T16<K 7mm >ES< Geel >I B<!Seel >! Gee !Bre 'Fwe 127121 eH! >! 16H !12< | Sel > 17a = Zee") 
> 344 0908 1 : 
; 345 0909 1 
; 346 0910 1 psect 
: 308 gat) : , owns Sown$(nopic, concatenate, local, noshare, noexecute, write) ; 
; 349 091 1 ! READ/WRITE OWN STORAGE 
; oe 0914 1! 
s 3 0915 1 own 
: 326 0916 1! 
; 0917 1 ! BUFFERS AND DESCRIPTORS 
: 354 0918 1! 
s 395 0919 1 alignment, ! ADDRESS OF ALIGNMENT DESCRIPTION 
: 356 0920 1 outline : chincquens® Clen$c_mapline], | - : OUTPUT LINE BUFFER 
: 320 921 1 outdes : vector (2) initial (len$c_mapline, outline), ! OUTPUT LINE DESCRIPTOR 
: Soe 922 1 outsize : word, ! SIZE OF OUTPUT STRING 
: I 0923 1 args : vector (10), ! FAO ARGUMENTS 
; 360 0924 1 Linecnt, ! NUMBER OF LINES OUTPUT ON CURRENT PAGE 
; 3e 0925 1 agenum, ' NEXT PAGE NUMBER 
; 362 0926 1 subhdline, ! ADDR OF SUB-HEADER LINE DESCRIPTOR 
: 363 0927 1 crfsubhdr block Cdsc$c_s_bln*2, byte], 
; 364 0928 1 fao_sym : block (8, byte], Seer 
: 365 0929 1 fao_symdesc : block ?- s_bln, byte] initial (8, fao_sym), 
; 366 0930 1 fao_mod : block (8, byte], ' 
; ler 0931 1 fao_modesc block Cdsc$c_s_bln, byte] initial (8, fao_mod); 
; 368 0932 1 
; 369 0933 1 bind : ; : 
3 A ; : } isdtxt = cstring ("Base Addr Disk VBN PFC Protection and Paging’); 
3 % 0936 1! 
: 7 0937 1 ! EXTERNAL REFERENCES: 
: 374 0938 1! 
s SS 0939 1 
: 76 940 1 external routine 
: 77 941 1 ink$closefile : novalue, ' ROUTINE TO CLOSE A FILE 
: 378 B3e6 1 crf$out, ' CROSS REFERENCE AND SYMBOL TABLE OUTPUT 
3; 379 945 1 sys$fao, ' FORMATTED ASCII OUTPUT 
; 380 pote 1 Lnk$filnamdsc, ' RETURN FILE NAME FROM FAB 
; 1 945 1 Lib$traverse_tree, ! TRAVERSE BINARY TREE 
; 0946 1 Lib$l nes, ' DETERMINE NUMBER OF LINES PER PAGE 
: 38 0947 1 LibStrim_filespec, ' TRIMS FILE SPEC 
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ys$gettim, 
nk$statsout; 


external Literal 


n$_crferr, 
n$_closeout, 
n$_faofail, 
n$_ “openout, 
n 


j 
j 
j 
i 
in$_writeerr; 
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r 
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t neeread. 


na 
nk 
nk$ 
nk$ 
nk$ 
nk$ 
Lnk$gb= sear 
ink$gl_inrelnam, 


Lnk$gl_relnam_map, 
ink$gb_ Locnov map 


Lnk$gt_imgnam 
ink kSgt “imgid 


lastomd 
mapestim, 
image filename 


$9! -{ | 
gt_ 

gl. ~seiaarlet. 
gl- 
gl-m 


: ref block 


: block C, bytel, 


: block Clid$c_size, byte], 
: ree 


: ee ee f. byte}. 
: ref block 


byte] + 


long, 


ytel, 


: orf. b b 
: vector byte]; 


: ref block C, byte], 
: descriptor ("No image file created’), 
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GETS ag TIME FROM SYSTEM 

DOES ALL THE WORK 

CROSS REFERENCE ERROR 

CLOSE ERROR SAG 

FAILURE RETURN FRO eT 

ERROR OPENING OUTPUT FIL 

ERROR MESSAGE CODE vFOR PUT FAILURE 


LIST HEAD OF OBJ MODULES WITH ADDRESS DATA 
ER OF OBJECT MODULES WITH ADDRESS DATA 

PNTR TO GLOB SEC_ID 

GLOB SEC MATCH CTL FLG 

NAM BLOCK FOR FIRST INPUT FILE 

NAM BLOCK OF INPUT FILE. Assocs we & /MAP 

SET IF /MAP WAS "LOCAL’ WITHOUT A VALUE 

CONTROL BIT MASK LONGWORD 

CURRENT FILE DESCRIPTOR 

IMAGE FILE DESCRIPTOR 

MAP _FILE DESCRIPTOR 

LIST HEAD OF NON-MODULE ERRORS 

STARTING DATE AND TIME 

VERSION OF LINKER 

NU t ee ies HEADER BLOCKS 


NUMBER IMAGE BINARY BLOCKS 
CURRENT CLUSTER DESCRIPTOR 
ADD ere List * ISECT DESCRIPTOR 


S FOR 
MAXIMUM VIRTUAL ADDRESS MALLOCATED 
INIMUM 


M 

NUMBER OF .ADDRESS FIXUPS 

NUMBER REFERENCES TO SHAREABLE IMAGE SYMBOLS 
SIZE OF STACK 

eye is OF aa IN LINK 


NUMBER OF MODULES IN LINK 
NUMBER OF P=SECTS IN LINK 
NUMBER GF SYMBOLS IN LINK 
NUMBER OF SYMBOL CROSS REFERENCES 
NUMBER OF UNDEFINED SYMBOLS 
USER TRANSFER ADDRESS 
DEBUGGER TRANSFER ADDRESS 
SYMBOL TABLE ENTRY FOR OTS RESERVED SYMBOL 
UMBER OF IMAGE SECTIONS 
SECT DEFINING USER TRANSFER ADDRESS 
SECT DEFINING DEBUGGER TRANSFER ADDRESS 
IMAGE NAME STRING 
MAGE ID STRING 


' POINTER TO Last OBJ MODULE DESCRIPTOR 
! ESTIMATE OF MAP LENGTH 
! STRING TO PRINT UREN THERE 
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LNK_MAPROUTINES 18-Se 1984 00:05: AX-11 Bliss-32 V4.0-74 Page 9 
v04=000 12286871382 99:23:38 LINKER. SRC ILNKMAPRTN.B 231 . (2) 
> 441 1005 1 ! WAS NO IMAGE CREATED 
>; 44 1308 1 psectnameline, ! Q OR POINTER TO PSECT SYNOPSIS LINE 
> 44 1007 1 aux fnb : ref block C, byte], ' PTR TO FILE'S AUXILIARY FILENAME BLOCK 
> 444 1008 1 rmserror, ! ERROR CODE RETURNED BY RMS 
> 445 1009 1 maprab : $rab (rac = seq, rop = wbh), ! SEQUENTIAL 
> 446 1919 1 mapifi : word ! SAVED _INTERNAL IDENT FOR CLOSE 
> 447 P1011 1 symbol field : Serffield (fao string = "!15AC', ' THE KEY 1 FIELD IS THE 
; 448 101g 1 eld_width = 15), ! SYMBOL 
; 449 1015 1 symbolend : Serffieldend, 
; 450 P1014 1 spacefield : Scrffield (fao.string = ° ', ! SPACES BETWEEN SYMBOL AND VALUE 
> 451 1015 1 field_width = 1), 
: $28 ote 1 spaceend : Scrffieldend, 
; 45 P1017 1 valuefield : Scrffield (fao_string = "!XL', ! HEX LONGWORD VALUE 
3; 454 1018 #1 field_width = 8), 
> 455 1019 1 valueend : Scrffieldend, 
: 456 P 1020 1 valueflags : Scrffield (fao_string = '!3* ', ! DEFAULT SUFFIX 
3 4657 1021 1 field_width = 3), ! WHEN NONE OF FOLLOWING APPLIES 
>: 458 P 1058 1 reloc_suf : Scrffield (bit_mask = gsy$m_rel, ! RELOCATABLE ONLY 
3; 459 P 19s 1 fao_string = "-R ', ! SUFFIX 
: 460 1024 1 field_width = 3), 
3; 461 P1025 1 univ_suf : Serffield (bit_mask = gsy$m_uni, ! SUFFIX ON UNIVERSAL 
: 46 P 1026 1 fao_string = ‘-U ', 
> 46 ost 1 ‘ : field_width = 3), 
; 464 P 1028 1 rel_uni_suf : Scrffield (bit_mask = ! SUFFIX ON RELOCATABLE 
> 465 P1029 1 ere uni or geySe_rel). ' AND UNIVERSAL 
; 466 P1030 1 ao_string = *-RU'; 
; 467 1031 1 field width = 3), 
; 468 P 1Oe6 1 ext_suf : Scrffield (bit_mask = sym$m_gref, ! EXTERNAL SYMBOL, NOT RELOCATABLE 
3: 469 P1033 1 fao string = ‘=x *, 
: 470 1034 1 : field_width = 3), 
> 471 P1035 1 rel_ext_suf : Scrffield (bit_mask = ! RELOCATABLE EXTERNAL SYMBOL 
s é7 P 1036 1 (gsy$m_rel or syptn_gref). 
: 473 P 1037 1 fao_string = '-RX', 
> 474 1038 1 field_width = 3), 
3; 475 P 1039 1 undef_suf : Scrffield (bit_mask = gsy$m_def, ! SUFFIX ON UNDEFINED 
3 «4% P 1040 1 set.clear = 0, ! SYMBOL VALUES 
: 477 P 1041 1 fao_string = ‘<-* ' 
: 478 1908 1 fieTd_width = 3), 
; 479 1045 1 val flgsend : $crffieldend, 
; 480 P1044 1 refnceflags : Scrffield (fao string = '!6e °, ' DEFAULT SPACES WHEN NONE OF 
> 481 1045 1 field_width = 6), ! THE FOLLOWING REFERENCES 
; 48 P 1908 1 weak_pre : Serffield (bit_mask = gsy$m_weak, PREFIX FOR WEAK REFERENCE 
; 48 P1047 1 ao_string = ‘!3% Wk-", 
5 oat 1048 1 : field_width = 6), 
; 485 1049 1 reflagsend : Scrffieldend, 
; 486 P 1050 1 referencer : Scrffield (fao_string = "!16AC', ! NAME OF THE REFERENCING MODULE 
: 487 1051 1 field_width = 16), 
: 488 1926 1 referencend : Scrffieldend, 
; 489 1055 1! 
; 490 1054 1 relsymval : Scrffield (fao_string = '!4* *, field_width = 4), : 
: «491 1055 1 reloc_pre : Scrffield (bit_mask = gsy$m_rel, fao_string = * R=", field_width = 4), 
3; 49 1028 1 univ_pre : Scrffield (bit_mask = gsy$m_uni, fao_string = ° U-", field_width = 4) ; 
; 49 1057 1 rel_uni_pre : Scrffield (bit_mask = gs y$a_un! or gsy$m_rel), fao_string = * RU-", tield_width = 4), 
3 494 1058 1 ext_pre : Scrffield (bit_mask = sym$m_gref, fao_string = ' X=", field_width = 4), ; 
3; 495 1059 1 rel_ext_pre : Scrffield (bit_mask = (gsy$m_rel or sym$m_gref), fao_string = ° RX-", field_width = 4), 
: one 1909 ' relSymvalend : $crffieldend ; 
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Lnk$gl_maxsymsz 
Lnk$gl_maxmodsz 
LnkSal_sytbl fmt 


ink$al_valctltb 


: vector (2), 


: byte 

: initial (8), 
: initial (9), 
: Scrfctltable 


-ref2table 
refitable 


: Serfctltable 


(keytype 
error 
,output 
-keyltable 
key2table 
,valitable 
val2table 
ref2table 
grotstanie 


ascic 
crferror 


inkScrfout i 


symbol field 


spacefield ! 


valuefield 
valueflags 
referencer 
refnceflags 


bin_u32 
crferror 


symbol field 
relsymval 
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} 

| 

b $ : 3) } global routine ink$mapinit : novalue = ' ROUTINE TO INITIALIZE MAP FILE OUTPUT 
; : 38 : FUNCTIONAL DESCRIPTION: 

; ¢ 7095 1 ! THIS ROUTINE PERFORMS ALL INITIALIZATION NEEDED TO CREATE THE MAP FILE. 

; 1 a8 1 ! IT OPENS THE MAP FILE, SETS UP THE PAGE COUNTER, LINE COUNTER, AND PERFORMS 
3 1097 1 | ANY NECESSARY TASKS DEPENDING ON THE MAP QUALIFIERS SPECIFIED BY THE USER. 

H 5 1 aS 1 ! IT SETS UP THE MAP FILE PAGE HEADER AND OUTPUTS THE LINK-WIDE SUMMARY. 

H 1 1 ! AT THE PRESENT, IT IS USED TO ORIVE THE OTHER MAP ROUTINES, WHICH EVENTUALLY 
; H 1109 : : WILL BE CALLED BY THE LINKER ITSELF. 

; 2 9 1102 1 ! FORMAL PARAMETERS: 

ie 40 11 1! 

$ 2) 1106 1! NONE 

; ¢g 7305 1! 

; 54 1198 1 ! IMPLICIT INPUTS: 

; 566 1107 1! 

; rH 1198 : THE TABLES CONTAINING THE LINKER DATA ARE ALREADY SET UP. 

; 209 1110 1 ! IMPLICIT OUTPUTS: 

; 548 bp ee 

; 549 W116 1! THE MAP FILE IS OPENED FOR OUTPUT. 

: 329 saiz ! THE PAGE AND LINE NUMBERS ARE INTIALIZED. 

: 226 1115 1 ! ROUTINE VALUE: 

3 3 11146 1°! 

: 5546 107 33 NOVALUE 

; 555 1118 1! 

; 556 1119 1 ! COMPLETION CODES: 

: 557 1120 1! 

; 558 1127 17! NONE 

; 559 11 ¢ 1! 

; 560 11 1 ! SIDE EFFECTS: 

; 561 1124 1! 

; 206 11S? 1! NONE 

> 3 1126 1! 

; 564 1127 1 !<- 

; 565 1128 begin 

; 566 1129 local 

s 367 1130 eblock : ref block C, bytel, ! ERROR BLOCK POINTER 
; 568 1131 saveblock, 

g 23) 1136 syapscedder., BLOCKS ESTIMATED FOR SYMS + PSECTS 
3 rmsstv, ‘ 

3 i HE map fab : block Cfab$c_bln, byte); ' FILE ACCESS BLOCK = FOR OPEN AND CONNECT 
: 57 11 bind 

; 74 11 $ imgauxfnb = Lnk$gl_imgfil Cfdb$t_auxfnd] ' REFERENCE THE IMAGE FILE'S AUXILIARY 
; ef? 1138 : Block Cnam$c_bIn, bytel; ! FILENAME BLOCK 

: 375 1140 auxfnb = inkSgt mept tl Cfdb$t_auxfnbj; ! SET ADDRESS OF AUXILIARY FILENAME BLOCK 
3 378 136] mapestim = 7 + .lAk$gw_nmodules74; ! MINIMUM MAP ESTIMATE 
; 59 1148 if not .lnk$gl_ctlmsk Clnk$v_brief] ! IF NOT A BRIEF MAP 

: 1 1144 then begin ! MUST DO SOME MORE 

; a¢ 1145 if .lnk$gl_ctlmsk Cink$y_cros} ' IF A CROSS REFERENCE 
; 1168 then mapestim = .mapestim + .lnk$gw_ncrosrfs/20; ! ADD IN AN ESTIMATE 

; 586 114 
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1$-se -1984 00:05:38 AX-11 Bliss-32 V4.0-74 
12-Sep-19 4 08:8 LINKER. SRCILNKMAPRIN.B 231 ( VO: 
sympscadder = .\lnk$gw_npsects + .ink$ a. peyayeter ite ! COMPUTE SYMBOL + PSECTS COMPONENT 
mapestim = (if .Unk$gl_ctlmsk Cink v-Long ! IF A LONG MAP 
then (.mapestim + 2*.sympscadder) } ADD IN DOUB 


else (.mapestim + .sympscadder) 


Cif .Unk$gb_locnov_ma 
then Xcharcount (°.M 


P*) 
else %charcount ("SYSSDISK:(C].MAP") 


) 
dna = (if sink Pee..) poner ma 
t (b 


then upl yte T'.MA 


P*)) 
else uplit (byte (*SYSSDISK:C1.MAP')) 


.auxfnb 


nam = 
= ,mapestim 


pe 


if .lnk$gb_locnov_map 
then mapfab pfabsv_ofp) 
else mapfab ([fab$v_ofp] 
maprab Crab$l_fab] = mapfab; 
rab$b_mbc] = minu (.mapestim, max_k_rmsmbc); 
= 


maprab 
nam$l_rifJ 


aux fnb . lnk$gl_relnam_map; 
if not ($getjoi Citmlst=lnk$gt_jpilst); 
i? inkSgl fileslett re 3 
then Lnk$closefile (); 
rmserror = $create (fab = mapfab); 
rmsstv = .mapfab Cfab$l_stvJ; 
-rmserror 


or not (rmserror = $connect (rab = maprab); 
rmsstv = .maprab Crab$l_stvJ; 
-rmserror 


then begin : 
signal (Lin$_openout, 1, \lnk$filnamdsc (mapfab) 
gah ROOT Ter. -rmsstv 


return; : 
end; 


m pit) = neptap Efebsu, itt); 
$gl_ctlmsk Clnk$v_mapopn] = true; 
$Smove (dsc$c_s_bln, Ink$Sfilnamdsc tagpten) 
; LnkSgT_faptil Cfdb$q_filename 


a 
in 
ch 


3 
4 
end; 
$fab_init (fab = mapfab 

tac ut 
orfm = var 
rat cr 
efns = .lnk$gl_mapfil plese .uernanten 
efna = .lnk$gl_mapfil Cfdb$l_usrnamadr 


LE THAT 
! ONE TIMES FOR DEFAULT FORM 


! INITIALIZE THE FAB 


/MAP WAS A LOCAL QUALIFIE 
WITHOUT A SPECIFED VALUE 


THE RAB POINTS TO FAB FOR CONNECT 
SET THE MULTI-BLOCK COUNT 
SET RELATED NAM BLOCK ADDRESS 


THEN CLOSE A FILE 
AND TRY AGAIN 


CONNECT THE RAB AND 


AND IF THERE IS AN ERROR 
REPORT THE ERROR 


AND GIVE UP 


SAVE INTERNAL IDENT FOR CLOSE 
SET BIT FOR MAP FILE OPEN 


USE ‘OUTPUT FILE rinse 
| 

SAVE AWAY REAL FILE NAME 
| 

| 


LINK_MAPROUT INES 
v04=000 


Bern nw Be ee FH Se Se Be ee Be ee She Be Oe OF Se os Oe OH Se Oe Oe Oe HSH Oe Oe Se ee oe OH Se BH Se oe 
Na —O6D 


SSF 


PAAAAAAAOO 


AWG 


g 


OWONGULSWN—-OVOO~ 


SISSORE ESSE ESTES 


wo 


8 20 


A 


mr 


—o 


1 


00 


ts ss a ss a as 2 Ls  ) 9 4 ss 


PROPIPPIPYSNIPINININONPINININIPYNIPYNPIPYUPIPUPPIPPUNNNPUNPoNonn 


AWAWAAWIA AAI POPINIPININININYDYD 2 2 OOOO SS OOOO 
DONA MEW OO ONAUES WN AH OVOOVNAOULE WN OOONOUM 


nmr 
om 


00 


FE 


D A. 
16-Sep-1984 05: 
14-5 30p- 1984 99:2 oi 
! SET UP THE DESCRIPTOR OF THE IMAGE FILE (IF ANY) 
gues LLimgfil neq 0 
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imagefilename £0) 
| seem 
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! PROVIDED AN IMAGE WAS SPECIFIED 


! SET LENGTH OF FILE NAME 
! AND POINTER TO IT 


-lnk$gl_imgfil ae itite usrnamlen]; 
elnk$gl-imgfil Cfdb$l-usrnamadrJ; 


i START MAP OUTPUT 


pect Linespp Lib$lp_lines ) = 8; GET NUMBER OF LINES PER PAGE 


= ! 
psec niael ine = Q; ' NO PSECTS YET 
subhd = Q; !' INITIALIZE FOR NO SUB-HEADER GENERATION 
ede = 1; ! NEXT PAGE NUMBER 


OUTPUT FIRST PAGE AND HEADERS 
OUTPUT OBJECT MODULE SYNOPSIS HEADER 


if not an ny e () then return 
if not mapbox (objmodhdr) then return; 


i IF THERE ARE ANY NON-MODULE ERRORS, DUMP THEM NOW 

eblock = -ink$gl_lerrlist; ! GET LIST POINTER 

! WHILE THERE ARE MORE TO DO 

! DUMP THE MESSAGE 


- ha dag ot neq 0 
inkSmapout (eblock Coeb$t_text], “come Coeb$w_bytcnt)); 


saveblock = .eblock Coebst _nxtoe 
a pe = pete 3 
end; 
pons tae (objmodsubhdr) ; ' OUTPUT OBJECT MODULE SUB-HEADER TITLE 
turn; 
as 
-TITLE LNK_MAPROUTINES 
IDENT \V0%-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
41 35 3] 4 43 41 36 31 21 QO0000 P.AAA: .ASCII \!16AC!15AC!3(9XL) (!11UL.) !5AC!1ZB\<0> 
4c 55 31 31 21 ¢ ¢ 9 4C 0O000F 
00 42 SA 31. 21 43 Boo TF 
0000002 0024 CONTRBSTR: 
00 90099" 009 8 “ADDRESS P.AAA 
9 $8 33 $4 43 41 He 1 QO2C P.AAB: .ASCII \!31AC!3(9XL) ('77UL.) !5AC!1Z7B\<0><0> 
5 20 29 4C 1 31 00038 
0 00 Boon 
0000001E 04C CONTABSTIs - 
34°° 00000' 0008) os “ADDRESS P.AAB 
41 39 33 21 43 41 1 1 54 “ASCII \!16AC ! 39AC\<0><0> 
+00 0000A 00060 CONTRASTS: 


10 


-LON 
00000000" 00064 ADDRESS P.AAC 
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“ADDR 
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P. 
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LONG 


ov 
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AAJ: ASCII 
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“ADDRESS 
P.AAG: ASCII 
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-ADDRESS 
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SS P.AAG 
\!4\<0><0> 


P.AAH 
\!16AC!15AC!10UL !37AD!19AD\<0><0> 


AAI 
TET AC\<O><0><0> 

P.AAJ 

\!31AC!10UL !37AD!19AD\<0><0><0> 
1 
P. 
\!A 


AAL 
\TS3at! UL \<0> 


.AAM 
VEE $118 8=4\<0> 
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00000008 

00000000" 
0 $8 57 23 36 21 $¢ 55 2 1 43 ti 36 Hi 
9 21 43 41 3 21 4C 358 38 21 43 41 1 

43 41 21 20 3 33 34 4C 

00 43 41 2 0 43 41 4 

000000eF 

00000900" 

0 57 55 36 21 42 55 34 21 43 41 a 
QRERHRE ERE RHEE E 
20 3C «(38 21 3¢ 55 34 21 4C 

31° 21 zt 1 43 41 21 20 43 41 § 0 43 41 ¢! 
20 42 5 6 21 20 43 41 32 31 21 20 43 41 36 
00 4¢ 38 # 20 

00000048 
00000000' 

60 65 6D 20 6C 61 75 74 72 69 56 3C 39 34 21 
21 3A 64 65 74 61 63 6F 6C 6C 61 20 79 72 gf 
$8 20 29 4C 58 39 28 33 4 E 

21 20 2c 53 $3 1 65 74 79 62 20 2— 4€ 55 21 
00 29 53 25 21 65 67 61 70 20 2— 4C 55 
00000043 

00000000" 

3A 65 7A 69 73 20 6B 63 61 74 53 3C 30 $2 $1 
53 25 21 65 67 61 70 20 2 57 55 38 21 Ha 4 
QOOO00TE 

ner 

3A 74 61 6D 72 6F 66 20 70 61 4D 3C 30 $1 
65 6C 69 66 20 6€ 69 43 41 21 43 41 21 SE 21 
00 44 41 21 $0 

00000022 

00990090" 

6D ¢9 64 65 74 61 6D 69 74 73 45 3C 30 21 
4C 55 21 3E 21 3A 68 74 67 6E 65 6C 20 70 61 
00 73 68 65 6F 6C 62 20 06 

00000026 

00 90090" 

65 61 65 68 20 65 67 $1 6D 49 3C 30 64 
68 63 6F 6C 62 20 6C $} 3 74 if: 69 76 20 ‘ 

E ¢] A 73 74 69 6D $2 f 

55 35 21 28 29 sf \TrRnrgg?sa + F 1 
00 29 53 21 68 63 6F 6C 62 20 3 7 
00000043 

00000000 

QI 


a 
16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 
19-808-1 382 90:03:38 LINKER. SRC LHEMAPRIN 68251 
9014 P.AAO: ,ASCII \I_!_!!!AC!!\<0> 
100 ABBRVTBL2 STR: 
1D4 “ADDRESS P.AAO 
108 P.AAP: ASCII \!16AC!4UB!6UW !2AC!8XL!2AC!9UL!4UB !AC \ 
iF 
0308 eASCII \!IAC !AC\<0> 
020 ISECT_CNTRL STR: 
020¢ “ADDRESS P.AAP 
0 10 P.AAQ: ASCII \!16AC!4UB!6UW !2AC!8XL!2AC!9UL!4UB!28< \ 
0 
00 % sASCII \IAC HAC !AC!>!16AC !12AC !6UB !8UL\<0> 
00256 
0025¢ GBLIS_CNTRL STR: 
00260 “ADDRESS P.AAQ 
8° $ P.AAR: .ASCII \!49<Virtual memory allocated:!>!3(9XL) (\ 
b0¢82 
Oo¢8¢ sASCII \!UL. byte!%S, !UL. page!%S)\<0> 
002A8 VIRMEMLINE: 
. LONG 
002AC .ADDRESS P.AAR 
Ba5e0 P.AAS: .ASCII \!50<Stack size:!>!8UW. page!%S\<0><0> 
O0gCE 
002D0 STACKLINE: 
-LONG 30 
00204 -ADDRESS P.AAS 
bo5e9 P.AAT: .ASCII \!50<Map format:!>!AC!ACin file !AD\<0> 
ete 
O0gtB .ASCII <0> 
OO2FC MAPFORMAT: 
. LONG 
0 00 .ADDRESS P.AAT 
0304 P.AAU: ASCII \!50<Estimated map Length:!>!UL. blocks- 
0 13 \<0> 
86 35 .ASCII <0> 
0032C MAPLENGTH: ; 
0 0 “ADDRESS P.AAU vor 
8 P.AAV: .ASCII \!50<Image header virtual block Limits:!>\ 
6 SASCII \!8UL.!9UW. (!5UW. block!%$)\<0> 
0378 IMGHDRBLKLINE: 
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5 
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PNA VPLS LHL LLL S 
coow>>r > 2S 
oonor OP,y 


SeNer SreVex 


ASCII 


IMGBINBLK 


P.AAX: 


IDENTLINE : 


P.AAY: . 
NFILLINE: 


LINE: 


S ADDRESS 
“ASCII 


sASCII 


\!8UL.!9UL. 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKMAPRTN. 3 231 


(!5UW. block!%S)\<0> 


P. AAW 
\!50<Image name and identification: !>!AC \ 


\!AC\<0> 


43 
ADDRESS P.AA 


ASCII 


e x 
\!50<Number of 


. 27 
ADDRESS P.AAY 


P.AAZ: 


“ASCII 


ASCII 


NMODL INE: 


P.ABA: 


“ADDRESS 
“ASCII 


-ASCII 


NPSCLINE: 


P.ABB: 


NSYMLINE: 


P.ABC: 


“ADDRESS 
“ASCII 


“ADDRESS 
“ASCII 


NUNDF LINE: 


P.ABD: 


LONG 


\!50<Number of 


<0> 

P.AAZ 
\!50<Number of 
\<0> 

<0> 


P.ABA 
\!50<Number of 


P.ABB 
\!50<Including 


40 
ADDRESS P,ABC 


“ASCII 


sASCII 


NCROSREFS: 


P.ABE: 


-ADDR 


NISCLINE: 
- LONG 


ESS 
ASCII 


\!50<Number of 
\<0> 


<0> 
P. ABD 
\!50<Number of 


36 


files:!>!8UW.\<0> 


modules: !>! 8UW.\<0><0> 


program sections: !>!8UW.- 


global symbols:!>!8UW.\ 


undefined count of:!>!8UW.\ 


cross references: !>!8UW.- 


image sections: !>!8UW.\ 
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H 1 
LINK _MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 Page 17 LNI 
v04=-000 1 ~30071 382 9008 ae LINKER. SRCJLNKMAPRIN.B52;1 ° Ry v0 
00000000’ 0 -ADDRESS P,ABE ; 
1 20 F 72 65 6 D 75 4E 3 = 1 6 4 P.ABF “ASCII. \!50<Number of address fixups:!>! -\ : 
$1 8k 98 96 98 5G 88 BF 8B OE SE é 2 4 $4 0034 — : | 
= 6. FS 1 3€ 00 2 ; 
00000024 005 MAORETL INE 5 % 
00000000' 0055 -ADDRESS P.ABF : 
63 66 6F 20 5 62 6D 75 4 — Se 1 086 P.ABG: .ASCII \!50<Number of code references to shareab\ : 
20 $8 65 63 6€ ig $3 6 8 a if : 64 6F est : 
F 61 o2 61 6 8 6F 74 TH43 : 
55 38 21 3€ 21 3A 73 65 67 61 6D § 5 6C 5 ASCII \le images: !>!8UL.\<0><0><0> : 
0 OO tbonks $88 ; 
000000 C HOURS YR. INE» $7 
009900 0' td ADDRESS P.ABG : 
72 74 39 Te 65 67 67 75 $¢ $3 44 3C 39 1 QO5SA4 P.ABH: .ASCII \!50<Debugger transfer address:!>!8XL\ 3 
3A O73 65 72 64 64 61 2 2 65 $6 ge 1 Bpee ’ 
4C 58 38 21 3E 21 005C 3 
00000024 005C8 DBGTFRLINE: 
se poace ADDRESS P.ABH : 
65 66 73 6E 61 72 74 $9 fs ee ie ae 4 00500 P.ABI: .ASCII \!50<OTS transfer address - !AC:!>!8XL\<0> ; 
43 41 21 20 20 20 73 73 65 72 $s 64 61 20 72 OOSDF : 
00 4C 58 38 21 3E 21 3A OOSEE 5 
0 00 0O05F6 ASCII <0><0> : 
00000025 005F8 sissdananaar f O 
00000000' OOSFC ADDRESS P.ABI 3 
66 73 6€ 61 72 74 30 72 65 73 55 3¢€ 30 35 21 00600 P.ABJ: .ASCII \!50<User transfer address:!>!8XL\ : 
38 21 3€ 21 3A 73 73 65 72 64 64 61 20 72 65 0060F 3 
4C 58 OO61E 3 
00000020 00620 USRTFRLINE: 
00 goog" 00624 ADDRESS P.ABJ 3 
3A 65 70 79 74 20 65 67 61 6D 49 3C 30 $1 00628 P.ABK: .ASCII \!50<Image type:!>!AC.\<0><0><0> 3 
00 00 00 2E€ 43 41 21 #3SE 21 00637 3 
00000015 00640 eee i 1 
00 90099" 00644 ADDRESS P.ABK 3 
3A 65 70 79 74 $3 65 67 61 6D 49 3C 30 $1 0648 P.ABL: .ASCII \!50<Image type:!>!AC!AC. Global Section \ ; 
61 62 6F 6C 47 20 2E 43 41 1 $3 41 4 E 1 0657 3 
4 of 6F 69 74 63 65 53 20 6C be ; g 
6— 65 64 49 20 2C 43 41 21 3D 68 63 74 61 4D 0067 eASCII \Match=!AC, Ident, Major=!UB, Minor=!UL- 3 
40 20 2C 42 55 21 30 72 6F A $ 4D 20 ec 74 pore \<0> 3 
00 4C 55 21 30 72 6F 6E 69 af ; 
00 0069 ASCII <0> ; 
0000004E 00698 SL: . 
00000000° 0069C¢ ADDRESS P.ABL 3 
0 beat P.ABM: .BYT 3 
20 45 54 59 4 . 1 ASCII \BYTE \ ; 
1] P.ABN: .BYTE 5 
20 44 52 4F A eASCII \WORD \ : 
5 AC P.ABO -BYT : 
20 47 GE 4F ag A eASCII \LONG \ : 
6B2 P.ABP BYTE : 
20 44 41 55 1 6 eASCII \QUAD \ 3 
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45 4€ 42 41 


1 
LNK_MAPROUT INES tbese -1984 00:05: AX-11 Bliss-32 V4.0-74 P 9 
¥04=000 Fr eeen aes 880 ge HATER SAPS neMAPAGN S251 age §} 
45 4C 42 461 465 52 41 48 53 i 759 y ASCII , SHAREABLE\ F ; 
46 45 49 52 42 00764 ape. “ASCII \BRIEF\ ; ; 
53 59 41 57 4C ‘i 2A oy, “ASCII SALWAYS\ ; : 
$2 45 56 45 4 4 oe “ASCII \NEVER\ : ; 
0 176 P.ACW: .BYTE 5 : : 
4c 41 55 51 4 77 “ASCII \EQUAL \ F 
OA 77 P.ACX: BYTE 1 : 
4C 41 55 51 45 2F 53 53 45 at 120 ages “ASCII \LESS/EQUAL\ : 
54 4C 55 41 46 45 ts Hs ye ASCII \DEFAUL?\ : 
4C 4C 55 46 007 "ASCII \FULL\ F 
18 0794 P.ADA: {BYTE 22 F 
20 53 53 GF 52 43 20 468 54 49 57 20 00795 “ASCIE \ WITH CROSS REFERENCE \ : 
20 45 43 4E 45 52 45 O74 pal ge OF : 
45 54 49 52 57 20 46 41 45 33 GOrAe gm ASCII \READ WRITE\ : 
59 4C GE 4F 20 44 41 45 53 G0787 al “ASCII \READ ONLY\ : 
4F 52 465 SA 20 44 GE 41 4D 45 a4 orci pe “ASCII \DEMAND ZERO\ : 
46 465 52 20 4E 4F 20 59 SO 4F “3 O7Cb i pete “ASCII \coPy ON REF\ : 
4C 42 41 45 52 41 48 53 2D GE 4F 4E 00709 ° ASCII \NON-SHAREABLE ADDRESS DATA\ : 
41 54 41 44 20 53 53 45 52 44 a4 O7E8 p= gala To : 
52 4F 54 43 45 56 20 50 55 58 49 46 Orr Tye “ASCII \é 1XUP VECTORS\ ; 
73 20 72 6F 66 20 79 65 48 20 65 $0802 "" TASCII <9>\ Key for special characters above\ : 
65 74 63 61 72 61 68 63 0 6C 6 69 oo8it : 
H $0855 <ASCII \:\ : 
if 008 6 P.ADI: .BYTE 18 : 
69 66 65 64 6E 55 20 2D 20 20 3A 20 08 i "ASCIE \ * = Undefined \ 
1 0839 P.ADJ: .BYTE 18 : 
72 65 76 69 6E€ 55 20 2D 20 $6 33 § tk ASCII \U - Universal \ : 
1 B4C P.ADK: .BYTE 18 : 
6— 72 65 74 78 45 20 2D 20 $8 38 3 ged eASCII \ XM = External \ : 
85F P.ADL: .BYTE 18 : 
61 63 6F 6C 65 52 20 2D 20 20 5 ; 860 "ASCII \ R= Relocatable \ 
1 P.ADM: .BYTE 18 : 
20 20 68 61 65 57 20 2D 20 4B 57 7 "ASCII \ WK = Weak \ 
6 P.ADN: .BYTE 18 : 
63 65 74 6F 72 50 20 2d 20 5 : 3 6 8 -ASCII \ P = Protected \ : 
00000000' 00000000" 00000000* 00000000 00000000' 00898 P.ADO: .ADDRESS UNDEF STR, UNIV_STR, RELOC_STR, EXT_STR, ~ ; 


EAK_S 
00000000° 00000000° OO8AC P.ADP: .ADDRESS RELOC_STR, PROTECT_STR 


Kk 1 
-S$ep-1984 00:05: AX-11 Bliss-32 V4.0-74 Page 20 
Woez000 NES 1o78ee= 138 99:28:39 = Her SRESiacMAPR oN Boe; 1 oe 38 
6F 69 74 63 65 7 61 6D 49 Be re att ¢¢ Image Section Synopsis !\ : : 
7 $3 $3 33 9 $3 4 6F 4 79 9 ch A pee pate - ; ; ; 
74 5 2 a a i eh 0 00 “ASCII \! Program Section Synopsis !\ : 3 
2 $3 $3 38 89 98 $3 GF GF $6 fe 38 28 SO eee ° 
4 74 5 6A 4F 1 c >: “ASCII \! Object Module Synopsis !\ : : 
CSV VEBZBASBHEE EKA 9 i) oes Sates oe J Se 
61 63 6F 6 $5 52 20 65 f 75 64 6F 4D fi 1 009 : ; “ASCII \! Module Relocatable Reference Synopsis \ : 
5 5 6C 4 0091 : 
BP SORERRRRP GREE Be : 
é 0931 P.ADU: :BYTE 18 ; 
69 73 70 6F 6€ 79? 53 20 65 67 61 6D $9 $8 3 BaF ASCII \! Image Synopsis !\ : 
1 0344 P.ADV: .BYTE 19 : 
61 4E 20 79 42 20 73 6C 6F 62 6D 2 53 20 Al 0945 -ASCII \! Symbols By Name !\ ; 
A P.ADW: .BYTE 26 : 
20 73 73 6F ie $3 20 6¢ of 6 $8 ° 23 20 24 0359 . eASCII \! Symbol Cross Reference !\ : 
(4 e 
61 56 20 79 42 20 73 6C 6F 62 6D 79 53 i 0308 secapeis SCH ¢° Symbols By Value !\ : 
21 20 65 3 6¢ 00983 : ie ; 
1 0988 P.ADY: .BYTE ; 
7 61 74 53 20 6E 75 3¢ $8 3 of 68 s¢ $9 ray 00998 eASCII \! Link Run Statistics !\ : 
21 65 % $i : 20 r é3 é if 4 4 ° 3) eM P.ADZ ASCII \!16<Psect Name!>!18<Module Name!>!9<Base\ : 
61 4&4 : 
3c 38 «(31«C21 36 A é i c é zi i i iy sASCII \!>!14<End!>!18<Length!>!22<ALign!>Attrib\ ;: 
69 6C 41 3c f 
62 69 4 76 41 21 ~6E 09E ; 
4 oF ASCII \utes\ ; 
C 38 31 2) Se 21 2p Qk i 1 31 ; é i i sah P.LAEA: ZASCI] \{16<!108-!>!1B<!118-!>19<!qent>!14<! 3eet\ 
A F 
° 1 2D 2A 5 1 : 4 31 21 3e TSE Se geo POI, Sey ; 
x 8 32 21 3E 1 D A 36 ! 3¢ 38 1 l : ne eASCII \>!18<!68=!>!22<!58=!>!10#-\<0><0> ; 
00000054 00A38 PSECTSUBHDR: 
LON 84 3 
9 990 ' Ae .ADDRESS P.ADZ ; 
0000° Nee “ADDRESS P.AEA : 
5 $0 ! $ 0 65 6¢ q 64 6F $ i 36 : : fy P.AEB: ASCII \!i6<Module Name!>!19<Ident!>!11<Bytes!>!\ : 
72 43 3c (39 ~«(351 3 3 3} é3 : é9 ig 3¢ 36 i he eASCII \36<File!>!19<Creation Date!>Creator\<0> F 
72 463 3 21 65 7% 61 ; 
A : 
¢ 39 } 1 i f f ; : : : : A9t P.AEC: ASCIL \ETGC!1 1a! >!19C Smt >i11< Seat >iBO<tSen tN; 
3°21 SE AB : 
2a 37 21 3E 21 . R 3 ; 1 ; § | t ABC SASCIT \>!19<!138=!>!78=\ : 


LINK_MAPROUT INES 16-5 $ep-1984 5: AX-11 Bliss-32 v4.0 P ,| LNK 
¥04=000 80pm Tbe P3iko:ss | ete Shes Lacmnpasn. bS2-1 age ¢} | vod 
00000048 OOACC OBJMODSUBHDR: : 
0 * Q0AD0 “ADDRESS P.AEB ; : 
AD4 LONG 58 : ; 
5 6D 61 GE 20 65 75 64 6F 4D Beye BBabe P.AED: “ARETE \iStcHodule Neme!>!8< Number!> !33<Hodu\ | 
e $ 0 e Name: moder $ 3 e 
BRE CORE eRe RG Ho Re ma ae : 
4E 20 20 1 3 A dD 61 4 BO sASCII \Le Name!>!8< Number!> !33<M Name!\ : ; 
of af ee RS 8 ; 2 0 se 2 i e 5 ep 5 oats Seger ey on eee 
00 3€ 21 72 #65 62 6D $p 4E 35 g $2 $5 21 6 He eASCII \>!8< Number!>\<0><0> : 
0 3¢ 1 1 2D 2A 31 31 21 3¢ 33 33 B3C P.AEE: ASCII \I33K!118-!>!B< 16eel> 133<111 ee! >!1Be \ 
shaeeheeeeeeael ee Sai 
1 31 #21 3c 33 1 20 1 20 2A 36 21 008 cASCII \i$68-!> 133111 = !>1B< 16 R= !>\<0><0> : 
3 3 Dp 2A 36 21 20 20 ¢ 5 1 36 21 ; A a873 : 
0000005E OBB OMDADRSUBHDR: es ; 
90000000" 0B88 -ADDRESS_P. AED ; 
00000046 0068C LONG F 
00990090" 00896 “ADDRESS P.AEE : 
61 56 3C 36 31 21 3 21 6¢ of 62 gp 79 33 3¢ 0894 P.AEF: <ASCII  \<Symbol!>!16<Value!>!\<0><0><0> : 
00000015 SOB Ae CRF SUBHD1: j 
00900000" 90880 “ADDRESS P.AEF : 
65 52 3— 21 79 42 20 64 65 6 69 66 65 44 3C OOBB4 P.AEG: ‘ASCII \<Defined By!>Referenced By ...\<0><0> : 
2— 2 20 79 42 20 64 65 63 6E 65 72 63 66 00B¢ : 
0000001E O0BD4 CRFSUBHD2: F 
00000000" 00BD8 “ADDRESS P.AEG : 
20 2a 35 21 3C 36 31 21 3E 21 20 2A 36 1 3¢ ooBDc P.AEH: -ASCII Eig ee iy 116¢15e=!>!\<0><00 : 
00000012 OOBFO CRFSUBHD3: 
009000 0" OOBF4 “ADDRESS PAAEH : 
00 00 20 2A 37 31 21 3E 21 2D 2A 30 31 21 ¢ BF P.AEIL: ASCII \<!108-!>!17%-\<0><0><0> 
0000000D 00CO8 CRFSUBHD4: 7 
009000 0° Q0COr [ADDRESS P.AEI : 
ae ae ee ee ee ee ee) ee, | ee. ee | 1 5 aaeie P eAEJ: .ASCII \!TTUL EAS !UL!AS\<0><0> : 
0000000E 00C20 FAO_ CREF SUBHD 
00000000" 00c24 “ADDRESS AEJ : 
00 43 41 4C 55 21 21 21 oc 8 P.AEK: -ASCII Ti ee acvco> 
00000007 00C30 FAO_CRE1: ae 
00000000' C34 “ADDRESS P.AEK : 
39 3 21 3E 31 H ¢ A 79 53 3¢ 36 i | cs P.AEL: -ASCIT \!16<Symbol!>!19<Value!>!16<Symbol!>!19<V\ 
6 3 5 1 $ 3E $f 6C 6F 62 00€56 : 


—— en 


m1 
LINK _MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 P LN} 
¥04=000 eae eet ee Ct TS TTL Eee age $¢ vo. 
fF 62 60 7 3¢ 636 «(3121 1 65 75 1 0 A \ 1>!16< 1>!19< 1>! NV 3 : 
gf ge $f 9 $8 et et 5 s % : Hl f f et f SCII \alue!>!16<Symbol !>!19<Value!>!16<Symbol ! \ 
0 5 2 C 61 ¢ ASCII \>Value\<0><0> ; : 
1 3 9 31 31 F 1 20 2a 3 21 f 6 i C90 P.LAEM: ASCII \!16<!68=!>!19<! Sat >! 16! 6Re I> !19<15eetr\ |} ; 
fae aE ERR EEE eR Be : : 
1 3 9 31 4 E 21 oD 2A 3% 21 3C 36 31 l cas SASCII  \ E166! 68=1>1196158=1>116<1 68H! >! Se-\<0> : : 
€ 21 20 2a 3% 21 3c 36 31 21 £ i p A ; cc : ; 
0 hit ASCII <0> : : 
00000056 O0CDC SYMSUBHDR: ; 
99990000" Oce0 “ADDRESS P.AEL : : 
0 4A OO0CES “LONG 74 : F 
0 900 0’ OOCES “ADDRESS P.AEM : ; 
32 31 21 E 21 ¢ F 62 6D 79 53 3c (32 1 QOCEC P.AEN: ASCII \!32<Symbol!>!12<value!>!32<Symbol!>!12<v\ : F 
ope eke eae eH ee i Hee ; : 
6F 62 6D 79 $3 C 32 1 Hi 65 sf gf ef 0D14 ASCII \alue!>!32<Symbol !>!12<Value!>\<0><0> : ; 
00 3 21 65 75 6 61 56 3c 1 21 3& 21 6C a : 3 
0 00D .ASCII <0> : : 
4 3c 32 «31 «221~=«OBE 21 20 2A 36 21 3C 32 «33 i 000 4 P.AEO: ASCII] \!32<!6R-!>!12<1Seael >! 32cl Geer! 12<!5e=!r\ | ; 
se gee or EBL OBA HBL SE 38 HT Bt Oops 
21 3c 32 31 21 3E $1 sp sh a 1 ( 32 ; 31 0003¢ ASCII \!32<!68=!>!12<15e=!>\ : ; 
00600045 90070 SYMLNGSUBHDR: : 
00000000' 00074 “ADDRESS P.AEN : : 
0000003C 00078 : ; 
00900006" OD7¢ “ADDRESS P.AEO : ; 
62 6D 79 53 3E 21 65 75 66 61 56 3¢ 30 4 ei 9080 P.AEP: <ASCII \!40<Value!>Symbols...\<0><0><0> : : 
20 2A 30 31 21 3E 21 2D 2A a $f ¢¢ 30 $f 4 d0098 P.AEQ: ASCII \!40<!5=!>!108-\<0> : 3 
00000045 O0DA8 VALSUBHDR : i tan : ; 
00 90000" ODAC “ADDRESS P.AEP : ; 
000000F 00DB0 “LONG 15 : 
000000 o° ODB4 “ADDRESS P.AEQ ; 
21 22 5 z 73 i jl 43 20 ¢ c i 1 ober P.AER: ASCII \!i6< Cluster!>!5<Type!>!8<Pages!>!51<!\ 
1 1 |e DD : 
0 $s 1 62 6F C is 3 3 4 1 = a i 41 DE eASCII \AC!>!16<Global Sec. Name!>!12< Match!>\ ; 
SOReER SOPOT ES Een : 
6F 6€ 69 4D 20 20 $ 64 69 72 6F " I rt 3 a eASCII \ Majorid Minorid\<0><0> : 
35 21 3€ 21 2D 2a 37 21 20 20 8 Cc 3% 31 E1C P.AES: ASCII] \!I16< !7eet>!S<tgant>iBciSeet>!Gee 1Be\ : 
DPS CCC eRe Ss : 
A 31 32 3! 35 7 1 D 2A 33 21 0 D O0E44 VASCIL \n !38= 127<!21 etd! 168-112<  Seet> H7e\ 
HOKE LTR EH He Ge ie : 
D 2A 5 1 20 20 20 2 ogee LASCIL \= !7e=\ : 2 
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8000 
01 


1 
1e-8eb-1984 12:40:31 
00174 -BLKB 2 
17C VALUEFIELD: 
-WORD =32768 
or7e BYTE 1 
17F “BYTE 
0180 
01 ADDRESS’ P.AEX 
188 VALUEEND: 
. WORD Q 
00184 -BLKB 
018C VALUEFLAGS: 
WORD 732768 
O18 “BYTE 
018F -BYTE 
0190 :LON 
00194 ADDRESS P.AEY 
00198 RELOC_suF : 
.WORD -32760 
019A “BYTE 1 
0198 “BYTE 
019¢ “LONG 
001A0 “ADDRESS P.AEZ 
OO1A4 UNIV_SUF: 
-WORD  =32764 
001A6 “BYTE 
O01A7 “BYTE 
OO1AB “LONG 
O1AC “ADDRESS P.AFA 
00180 REL_UNI_SUF : 
“WORD >32756 
00182 BYTE 1 
0018 “BYTE 
001B4 LON 
00188 "ADDRESS P.AFB 
001BC EXT_SUF : «WORD 16384 
O1BE “BYT 
001BF “BYTE 
001C0 “LONG 
0014 “ADDRESS P.AFC 
01C8 REL_EXT_SUF : 
WORD — =16376 
O1CA “BYTE 
1¢B “BYTE 
cc LONG 
1D “ADDRESS P.AFD 
1D4 UNDEF _SUF : 
.WORD -32766 
106 “BYTE 
10 TE 
108 “LON 
9106 “ADDRESS P.AFE 
VALFLGSEND: 
Bike 
vo of E2 “BLKB 
1E4 REFNCEFLAGS: 
.WORD = 32768 
001E6 “BYTE 1 
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00000000 
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00000000 00000000 00000000 00000000 8 
00000000" 00000000" 00000000° 00000000' 


SoOooooooooo 
Cooooooeoo 
CoooooLscoo 


00000000 
00 00 00 01 


00000000 


00000000 00000000 00000000 00000000 S444 
00000000* 00000000° 00000000" 00000000' 4444944 
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00000000 00074 
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Ov 0 
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2 
1ESE0r194s 0:05:3 
. WORD 
.PSECT 
00000 LNK$GQ_ENDTIM:: 
00008 LWeSGB_LINESPP:: 


99009 -BLKB 

000C LNKSGL_MAXSYMSZ: 
00010 LNKSGL_MAXMODSZ 
00014 LNKSAL_SYTBLEMT: 


- ADDRESS 


LNKSAL_VALCTLTB:: 
- LONG 


oa 


IGNWO 
ALIGNLONG= 
AL IGNQUAD= 


ALIGN2= 
AL IGNPAGE= 


AX-11 Bliss-32 V4.0-7 
LINKER. SRC JLNKMAPRTN. : 2:1 


SGLOBAL$ ,NOEXE ,2 


OVirmqooooo= O-- O- wi— oO 


. 0, 0, 0, 0, 0 


OR, LNKSCREQUT SYMBOLF 
ALUEFIELD, VALUEF 
kes, VREFERENCE ER 


OUNRCS—co:: -DMW 


. 0, 0, 0, 0, 0 
nor 5, SPACEFIELS, “_ 


ww 
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v04=000 18: se0-1944 HES Mm CE i a Rt oe 


Beeeeee 
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EXT_STR= 
RELOC STRs 


VVIV SCS SCS VF GV VIAAAAAAAAAAAAAAAAAAAOAAAAAOOAO 


it. 
ISTR_POINTER= 
JRAGE SEL TIONS 


LINKWIDEHDR= 
SYMBYNAME= 
SYMBOL CREF = 


> 
- 
- 
~ 
tm 
=z 
m 
" 
VVUVVVVVVVUVUUUUUUVUUUUUUUUUUDUUVUUUUDUUVUUUUUUUUUUUUUUUUUUUUU 
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c<c-4novU 


Lk RAPROUT INES 18-5¢ ~$00-138% 99: 93: 3 AX-11 Oi ies -32 v4.0 Page 3 


-Sep-1 LINKER. SRC ILNKMAPRIN. if 2;1 
SYMBYVALUE= P.ADX 
LINKSTATS= P.ADY 
ISDTXT= P.AET | 
-EXTRN LNKSCLOSEFILE, CRFSOUT 
ZEXTRN SYS$FAO, LNKSFILNAMDSC | 
XTRN LIBSTRAVERSE_TREE 
XTRN LIBSLP LINES, LIBSTRIM FILESPEC 
TRN SYSSGETTIM, LNKSSTATSOOT 
TRN LINS_CRFERR, LINS$ CLOSEOUT 
TRN LINS-FAOFAIL, LINS_OPENOUT 
RN LINS-WRITEERR, LNKSGL_FILESLEFT 
TRN LNKSGT_JPILST, LNKSGL-OMDADRLST 
RN LNKSGL-NADROMD, LNKSGC_MATCHID 
TRN LNKS$GB_MATCHCTL 
RN LNKSGL—INRELNAM 
XTRN LNKSGL-RELNAM_MAP 
XTRN LNK$GB_LOCNOV 


MA 
TRN LNKSGLOCTLMSK, LNKSGL_CURFIL 
TRN LNKS$GL~ “Aner it 


E 

XTRN LNKSGW NPSEE § LINKSGO. NSYMBOLS 

XTRN LNK$GW_N CROSR RFS 
EXTRN LNKS$GW~NUDF SY Me 
EXTRN tNKSEL~ NERADR LNKSGL_DBGTFR 
EXTRN LNKSGL~OTSEPDSC 

XTRN LNKSGWONISECTS, LNKSGL_ TFRPSC 
“EXTRN LRSGL- “DBGTFPS, LNKSGT~IMGNAM 
*EXTRN tNKSGT “IMGID, SY &§ GETUPI 
SEXTRN SYSSCREATE, SySSCONNECT 


-PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY "oT ten Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 1091 
58 990000006 0 9E 0000 MOVAB LNK$GL_MAPFIL, R11 : 
5a 000000006 00 9€ 0000 MOVAB LNKSFICNAMDSC, R10 : 
9 0 ' EF 9€ 0 19 MOVAB P.AFO, R9 : 
8 6 60 9€E 0001 MOVAB Liesec CTLMSK, RB : 
000000' EF 9E 43 MOVAB MAP PESTIM, R7 ; 
E B0 AE 9 MOVAB -80(SP SP 3 
§ 68 9 MOVL yisct Aa “AAP FIL R6 : 1140 
10 A 36 A6 SE ¢ VAB XFNB : 
20 000000006 90 ¢ 0031 mOVZWL LNKSGW *NRODULES , RO ; 1141 
oon 8h ««O?:«OAG Be BOBS ROVAR hho, warestin. = 
8 3 h4 TSTB NKSGL_ CTLASK > 1145 
p } 46 BGEQ ; 
$0 000000006 C 0004 MOVZWL LNK$GW_NCROSRFS, RO + 1146 
14 C6 O004F DIVL2 #20, RO : 


-32 V4.0-74 : 
H R AX=11 Blis NKMAPRTN.B32; 
Ve-8ep-1986 2:40:31 ECTnker’sRei 
vases Nee ee eas. a0 
002000 7 $C B0088 18: ROvUL ree noo RI 
V04= 1V CTS 
sonore a eterna © 
3 io Ui ORY ge 
0 B74 ; MAPESTIM 
* f: cb 0 Ps ge: nove RO. res ae #0, #80, S$RMS_PTR 
: MO 
é 5 Be O7A a8: 204683, SRNS PTR 
0 * BF 0 O99 Rov, RAPES TIN. EARS Pee 
0050 BE os 5003 if 00 8 $ nove #1, , SPS Tne? 
18 AE i 60 OO8E MOVE ni a 
1E AE 0205 A? DO 00095 MOVL ai te snr SANS PTRSG4 2 
28 Re 2s D0 0090 ROVIBL LNKS9e. “LOCNOV_MAP, R 
10 A 
ec 53 000000006 99 9A O09 ROVAB P-AFO, RO 
i He RovAS RAE: 10, ag 
9 1 5$ SAMS PTR 
20 %* 8 BO Gouss os HOVE iging). SRMS_PTR+52 
0 AE A6é 90 00089 BLBC 
a ES 900BE MOVE = #4, RO 
30 03 11 000C4 | MOVL #15, ~# PTR+53 
8 90 000C9 8S; «MOV. «ORO. SRS. 
i tc an a oe 
ss 25 fa Bone BRE 108 MAPF AB+7 
07 AE 04 11 00004 9$: BISB2# 0 MAPRAB+60 
So Sie, pe os im, RO 
tt B35 $808 TO Re Ete 
8 AR BB ee 
. 2 oe 
FA? 0 00 000E CLRO = =( SP) 
+ Heooo Fe Be ister ust 
000000006 oF OFF ee 
f FB 00103 cA east PE Selor, a5 
10A 
900000006 85 000000006 ? Ne Hf CALLS et eS ae 
0 $: PU SYSSCREA 
00 D OOIIA 12 ALLS 
000000006 & bp Ooi it RO ns 12, AMSsTV 
0006 0 Q DO 001 MOVL , 138 
00000 0° D0 001 LBC —- RMSERROR 
18 A? OF OOISE 


ee 
Sete Se 
Sete Se 

Pete te 

Bete te 

Sete Se 

Sete Be 

Sete Ge 

ete ee 

Sete Se Se Se Se Se Se & 

Sete te Se 

Sete Se 

Sete Ge te 

Sete ee 

Se ee te 

Sete Se te 

Sete ee 


2 | 
vos=000 1E$S0e19RE Q0:05:98 UMGGLEAPLARNTAR AL Oa74. Poe 3) 


000000006 09 : FB 001 3 CALLS #1, SYSSCONNECT ; 
16 «OA 00 001 MOVL 0, : 

52 24 A? 00 00130 MOVL MABRAB® le, RMSSTV : 

1D 4 AZ? EB 0014 BLBS AMSERR , 14$ ; 

3¢ DD 00145 13$:  PUSHL AMSeT VC : 

16 A po 14 PUSHL RMSERROR : 

08 AF F OO14A PUSHAB MAPFAB ; 

6A FB 0014D CALLS #1, LNKSFILNAMDSC : 

0 oD 001 PUSHL RO : 

000000006 BF pd 91 Pye Fins OPENOUT ; 

000000006 00 5 FB 13h CALLS +, LIBSSIGNAL : 
5¢ AT 02 AE 80 016 14$:  MOVW MAPFAB+2, MAPIFI ; 

68 : 16 BISB2 #32, LNK$GL_CTLMSK : 

E DD O0016A PUSHL SP F 

6A 01 F o16C CALLS #1, LNKSF ILNAMDS( : 

51 6B D 16 MOVL LNKSGL ptAPedt ; 

14 Al 60 08 28 001 : MOVC3 #8, ( Ue : 
50 000000006 00 09 017 MOVL tatea hee iL RO : 

A 13 OO17E EQL =s«d15$ : 

04 A? 0c AO 3C 00180 MOVZWL 12(RO), IMAGEF ILENAME : 

08 A7 10 AO 006 00185 OVL  16(RO) MAGEF ILENAME +4 ; 
000000006 00 00 a: 0018A 15$: CALL #0, UI C1asiP NES F 
00000000" EF 50 08 83 00191 SUBB 0 LARGE. LINESPP ; 
Oc A? Ds 00199 CLRL —s SECT : 

C4 «OA? 01 7D 0019¢ MOV os #1, P. : 
00000000v a 00 FB 001A0 CALLS #0, NEWPAGE ; 
a 50 t 00147 BLBC —_ «RO, ; 

F9C8 «669 «CSF OOTAA PUSHAB OBJMODHDR : 

00000000v EF 01 FB OO1AE CALLS #1, MAPBOX : 
A 50 €9 0018 BLBC 0; ; 

2 000000006 00 09 00188 MOVL  LNKSGL_ERRLIST, EBLOCK : 

16 13 OO1BF 16%:  BEQL 17 : 

7E 046 A 3¢ 001C1 MOVZWL 4(EBLOCK), -(SP) : 

06 A2 9F 001C5 PUSHAB 6(EBLOCK) : 

00000000v EF 02 FB 0018 CALLS #2, LNKSMAPOUT : 
3 : 00 O1CF MOVL (EBLOCK), SAVEBLOCK : 

52 D O1De MOVL § SAVEBLOCK, EBLOCK F 

E8 11 0010 BRB 16$ : 

FBA8 f 9F 001D7 17$: | PUSHAB OBJMODSUBHDR : 

00000000v_ EF 1 FB 108 CALLS #1, MAPSUBHDR : 
04 OO1E2 18$: RET ; 


; Routine Size: 483 bytes, Routine Base: $CODE$ + 0000 


; 676 1239 1 
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14-Sep- LINKER.SRC LNKMAPRIN. 8 
7 
§ 
eh 
681 
gas 
684 
685 


routine trimfail (errcode) : novalue = 
' begin 


; THIS ROUTINE IS CALLED FOR ANY FAILURE RETURN FROM LIBSTRIM_FILESPEC 


signal (Lin$_faofail, 0, .errcode); '& need new message 
resurn; 
end; 


a 
Set ee eee 


NOUS WO 


0000 00000 TRIMFAIL: 


P Save nothing 3 1300 
046 ac oD O0e PUSHL ERRCODE 3 124 
7E D4 0000 CLRL -(SP) : 
000000006 BF DD 00007 PUSHL Saar FAOFAIL 3 
00000000G 00 3 FB 00000 CALLS #3, LIBSSIGNAL $ 
04 00014 RET 3: 1247 


; Routine Size: 21 bytes, Routine Base: S$CODE$S + 01E3 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
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LINK_MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 P 3 LNK 
V04=000 ee tiaets rR et mm Ee RC aoe 8 v04 
3 687 1248 1 routine faofail (fao_errcode) : novalue = 7) 
; 6 4 , begin : : 
: 690 ! THIS ROUTINE IS CALLED FOR ANY FAILURE RETURN FROM FAO : 
: 69 i "signal (LinS.faofail, 0. .f ); 31 
: $8 : rH ef a3 n$_faofa 0 ao_errcode : 4 
; 694 1255 end; ; 1 
:1 

24 

:] 

0000 00000 FAOFAIL:.WORD Save nothing 31 

06 Ac DD 0002 PUSHL FAO_ERRCODE 
7E D4 900 - 
000000006 et DD 00007 
000000006 00 3 FB 9000 CALLS #3, LIBSSIGNAL 
4 00014 RET 1255 


: 1248 
3 Veo 
CLAL (SP) 3 
PUSHL #LINS_FAOFAIL H 
; Routine Size: 21 bytes, Routine Base: SCODE$ + 01F8 


2 
ps growries IERSPIOSE QQEERT WaLdaDAANCRENt? roe 


-Sep- ee bres CILNKMAPRTN. 5 2;1 
3 $36 1 § 1 routine crferror (errorcode) : novalue = 
3 4 } egin 
: 639 1 § i THIS ROUTINE IS CALLED BY THE CROSS REFERENCE PROGRAM WHENEVER 
3 701 ! ¢' } IT INCURRS AN ERROR, THE ROUTINE MERELY PRINTS A DIAGNOSTIC MESSAGE 
: 7 ¢ 1 °¢ ; signal (LinS_crferr, 0, .errorcode); ! QUTPUT DIAGNOSTIC 
; 70 126 return; 
: 704 1264 end; 


0000 00000 CRFERROR: 


. WORD Foxe aperatne : 1256 
04 AC ODD 0000 PUSHL ERRO ODE 3 1262 

7E 04 0000 CLRL Se : 

00000000G 8F DD 00007 PUSHL | INS_CRFERR : 

000000006 00 03 FB 0000D CALLS , LTBSSIGNAL ; 
04 00014 RET 3 1264 


; Routine Size: 21 bytes, Routine Base: S$CODE$ + 0200 
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LINK _MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-7 P 5 

v04=000 eaters PP ot me Ee ta CTL Oe age 33 
706 i routine mapfail : novalue = ! ROUTINE TO REPORT MAP 1/0 FAILURE : } 
: 7? 1 1 144 21 
; 703 i FUNCTIONAL DESCRIPTION: ; ' 
: 711 1 1 | THIS ROUTINE REPORTS A MAP 1/0 FAILURE, THEN CLOSES THE FILE CLEARING 33 
; tig g i THE APPROPRIATE CONTROL BIT TO ENSURE NO MORE ATTEMPTS TO WRITE. ; } 
; ay r ; FORMAL PARAMETERS: ; 
Bs ages | lee : 
; 18 i { IMPLICIT INPUTS: ; 
: 720 1279 1: NONE :1 
: 721 1280 1! 31 
; t : 81 { IMPLICIT OUTPUTS: ; 
; ? 4 es THE MAP FILE IS CLOSED FOR OUTPUT. ; 
; , $ 8s ROUTINE VALUE: : 
3 728 1387 1 | NOVALUE i] 
; , 0 89 COMPLETION CODES: ; 
- 1291 1! NONE :1 
; rag 1 38 1! 37 
; t34 1293 i SIDE EFFECTS: : 
a8, 1295 1 NON : 1 
: 737 1296 1/3 _ :1 
: 738 1297 1 Pe : 1 
: 739 1298 pegin -.7 
; 740 1299 $gl_ctlmsk Clnk$v gneqeend false; ' TURN OFF MAP OPEN FLAG 3 Y 
: 741 1300 : ional (Lin$_writeer ! REPORT MAP 1/9 {FAILURE 3 7 
3 7 1301 § Lnk$gl_mapfil Cfdbsq. filename), “rmserror, -maprab Crab$l_stvJ) 3 1 
> 74 1308 ink$closaapti OF '" THEN CLOSE THE ite: ir POSSIBLE 31 
3: 744 133 2 return; 3 1 
: 745 1304 1 end; 3 ; 
: 1 
3 1 
: 
0000 90009 MAPFAIL: .WORD 8 en : 1265 1 
000000006 00 20 BA 9002 BICB2 ff 2, jfiegote “CTLMSK + 1299 :1 
00000000' EF DD 0000 PUSHL > 1301 31 
00000000" EF DD O00F PUSH maceae ; 71 
7E 000000006 00 14 C1 00015 ADDL CRRSGL _MAPFIL, =(SP) : 51 
oN DD 9010 PUSHL ; 31 
000000006 8F DD OO0O1F PUSHL #LINS WRITEERR ; 31 
000000006 00 05 FB 0 5 CALLS , LIBS ; 71 
00000000V_ EF 0 FB ¢ CALLS He LAPSE CeAAPF IL F 1302 | 
04 000 RET : 1304 : } 
; Routine Size: 52 bytes, Routine Base: S$CODE$ + 0222 : 1 


E> § See cee cee SE cee coe eel oe lh cel coll cel OO oe col 


a> PS se see *Sse se rSsease teresa *® ease 


832:1 


JLNKMAPRTN. 


AX-11 Bliss-32 V4.0-74 


LINKER.SRC 


ibsto-t9gs 00:05:38 y 


1305 1 
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v04=000 
746 


ES a De a a a sre 


LNK_MAPROUT INES 53 : 
y00=000 Baeee TORS $3540:8) — LOTNKER SRETLAKMMPRIN. B82; 1 Page 3) Ms 


48 0¢ global routine Lnk$closmapfil : novalue = 

; 750 1 6 eR 

; 751 1 5 1 le4 | 
: f ¢ : \9 ! } FUNCTIONAL DESCRIPTION: | 
g 7 : \§ | } THIS ROUTINE CLOSES THE MAP FILE 

; f $ 16 FORMAL PARAMETERS: 

: 758 i 

; 759 i 9 i i _— 

: 0 : 3 : IMPLICIT INPUTS: 

; 1320 1 LNKSGL_MAPFIL = POINTER TO MAP FILE DESCRIPT 

; 7 = POI 0 OR BLOCK 

: 1 : ae ® AUXILIARY FILENAME 8LOCK 

; } § 1 i = INTERNAL FILE IDENTIFIER 

; : ¢ : IMPLICIT OUTPUTS: 

: H § : THE MAP FILE IS CLOSED FOR OUTPUT. | 
; 1328 1 | ROUT : 

1329 ii UTINE VALUE | 
: 1330 : NOVALUE 

3 1338 1 COMPLETION CODES: 

1338 | | ae 

3 1336 1 | SIDE EFFECTS: 

: i 

: 1339 i i npn 

; 1340 1 !-- 

: 13! begin 

3 Hg teeta 

‘ mapfab : block Cfab$c_bln, bytel, ' FAB FOR THE CLOSE 

: 134? closerror; !' ERROR CODE RETURNED BY RMS ON CLOSE 

; HE 2 -mapifi neq 0 ! IF THE MAP FILE IS STILL OPEN, 

; 1349 “be gin 

; 1350 $fab_init (fab = mapfab, tef); 

: 1382 ty CfabSw_ifi] = > : ! INSERT THE SAVED FILE ID | 
; 1 = = 

1384 3 of Celecerrer = $wait (rab = maprab)) ! WAIT FOR POSSIBLE ASYNCHRONOUS OUTPUT 

; 1322 2 begin ! AND IF OK 

: 28 ? nk$gl_ctlmsk Clnk$v_mapopn] = false; ! TURN OFF THE CONTROL BIT 

; a ? 7 wetenerrer = $close (fab = mapfab)) ! ATTEMPT THE CLOSE AND IF IT 
3 1360 begin ' 

3 1361 mapifi = 0; i SE ARE A 

1362 nen Sh Ey WE ARE ALL DONE 


_—— 


3; Routine Size: 114 bytes, Routine Base: S$CODE$S + 0256 


3 | 
LINK _MAPROUTINES ese -1984 00:05: AX=-11 Bliss-32 V4.0-74 Page 38 
v04=000 o23ep- 1882 93:28:39 = EM icer SReSUNRMAPRIN B42: 1 ve 5 
; 805 1363 4 end; : 
i 806 1364 : 
: a4 } 0? end; ! BUT IF ANYTHING ° 
; 809 1 ¢9 signal (Lin$ closeout 1, ! FAILS, ISSUE THE ERROR MESSAGE BUT : 
: 810 1 68 inkSgt _maptil fdb$q_ filename], .closerror, .mapfab [fab$l_stvJ); : 
: 811 1 6 mapifi = 0: AND €LOSE IS COMPLETE : 
$ aig 1370 end; ° 
; 81 1371 ‘ 
; ai3 1 ie return; ‘ 
3 S15 1375 (1 end; ° 
.EXTRN SYSSWAIT, SYSSCLOSE : 
| OoFC 90 .ENTRY LNKSCLOSMAPFIL, Save R2,R3,R4,R5,R6,R7 : 1306 : 
57 00000000" EF 9E 0000 MOVAB MAPIFI, R7 : : 
SE Bo AE 3 000 OVAB -80(SPS, SP : : 
56 6 c 0000 MOVZWL MAPIFI, R6 > 1347 ; 
5F 13 00010 FOL 3 ; : 
0050 8F 00 6E 00 2c 00012 MOVCS #0, (SP), #0, #80, SRMS_PTR : 1350 : 
6£ 5003 8F BO OOOIA MOVW #20483, SRMS_PTR : : 
04 AE 10000000 8F 00 OO0IF MOVL  #268435456, SRMS_PTR+4 : : 
16 AE 92 90 00027 MOVE = #2, SMS _PTR+ ee : : 
1f AE 02 90 00028 MOVB #2, $RMS-PTR+31 : : 
02 AE 56 80 0002F MOVW 6, MAPFAB+ > 1351 : 
BC A? 9F 00033 PUSHAB MAPRAB : 1353 : 
000000006 0 01 FB 90036 CALLS #1, SYSSWAIT : : 
1 50 E9 0030 BLBC CLOSERROR 1$ ; : 
000000006 00 20 A 90040 BICB2 #32, LNKSGL_CTLMSK > 1356 : 
E DD 00047 PUSHL SP : 1358 : 
000000006 00 01 FB 00049 CALLS #1, SYSSCLOSE ; : 
1C 50 £8 9000 BLBS  § CLOSERROR, 2$ ; : 
Oc AE dD 00053 18: PUSHL MAPFAB+12 : 1368 : 
50 DD 00056 PUSH CLOSERROR ; : 
7E 000000006 00 14 C1 00058 ADDL3 #20, LNKSGL_MAPFIL, -(SP) ; ; 
01 DD 99060 PUSHL #1 : : 
000000006 8F DD 0068 PUSHL #LINS CLOSEOUT ; : 
000000006 00 05 FB 0006 CALLS #5, LIBSSIGNAL ; : 
67 BA O06F gs: CLRW 30s MAPIF I : 1369 : 
4 00071 3$: RET : 1373 : 


; 816 1374 1 


mierdissiesttiaglticaie aiecechaisanasd anicantaceneieee: | 


LK _MAPROUT INES Sep-1984 00:05: AX-11 Bliss-32 V4.0-7 Page 39 

v04=000 18-00-19 99:08 :8F LINKER. SRCJLNKMAPRTN. 5 2;1 . Rid 

$ ! y ! global routine |nk$mapmhd (objrec, objmoddsc) : novalue = ! ROUTINE TO COLLECT MHD INFORMATION | : 
: 820 1379 1 14s | 
: B21 1378 1 | FUNCTIONAL DESCRIPTION: | : 
: : 1380 1 | THIS ROUTINE EXTRACTS THE INFORMATION CONTAINED IN THE MODULE HEADER | : 
> B24 1381 1 | RECORD AND CREATES A N OUTPUT LINE FOR THE OBJECT MODULE SYNOPSIS : 
: B25 1 ; 1 | ._ THE STINE. CNKSMAPLNGS UTLLU INSERT THE’ LANGUAGE PROCESSOR | : 
i B26 1 1 | INFORMATION AND ACTUALLY WRITE THE LINE. THE INPUT PARAMETERS INCLUDE | : 
i 8 1384 1 | THE ADDRESSES OF THE MODULE HEADER RECORD AND THE OBJECT MODULE : 
; g 5 i TABLE ENT | : 
; : 9 ; | FORMAL PARAMETERS: ; 
; B32 89 OBJREC == THE ADDRESS OF THE OBJECT MODULE HEADER RECORD : 
; 834 1391 ; OBJMODDSC == THE ADDRESS OF THE OBJECT MODULE DESCRIPTOR ; 
; 836 1398 { IMPLICIT INPUTS: ; 
; 838 1395 | ; THE NECESSARY LINKER TABLES MUST BE ALREADY SET UP. : 
: 840 44 i IMPLICIT OUTPUTS: : 
; 84 1399 THE OUTPUT LINE IS BUILT SAVE FOR THE CREATOR DATA. : 
; B44 1401 1 { ROUTINE VALUE: ; 
Be | com : 
: 848 1405 1 | COMPLETION CODES: : 
: 849 1406 1 ; 
(Bein fi : 
i 838 1409 1 | SIDE EFFECTS: ; 
; 85 1410 1 : 
: 854 1411 1! NONE : 
: 855 Wie 1 | ; 
: 856 1413 1 ie : 
econ : 
; 859 1416 filnam_ing = 37-1; ! FILENAME OUTPUT FIELD SIZE | : 
: 861 1418 2 Local | 
; 86¢ 141 cre8date, ' ADDRESS OF CREATION DATE | ; 
3 Be? 1420 fao_errcode, ! FAO ERROR CODE : 
: 1421 modident : ref vector C. byte], ! REFERENCE TO MODULE IDENT : 
; 865 14 é filnam : block i FILE NAME DESCRIP | 3 
; 866 14 : filnam_buf < block filam “(ng.bytel ; i BUFFER FOR TRIMMED FILENAME | : 
bes 1256 $ *” obimodd f block byt ' REFERENCE TO OBJ MOD DESCRIPTOR | 
© oDd}]moGcGasc : re oc e H e 
: 870 14 $ objrec : ref vector f: byte]; i REFERENCE TO OBJECT MODULE HEADER RECORD : 
; He 1259 5 bind 
: 87 1430 mhdrec = objre: bloc bytel, ' NAME OBJECT RECORD AS MODULE HEADER RECORD ; 
: B74 1431 objauxfnb = ink$gl curfil Cfdbst eis i THE AUXILIARY FILENAME BLOCK OF CURRENT OBJ ; 


LK _MAPROUT INES 
v04-000 1b- -Sep- 


; 875 14 block Cnam$c_bln, byte] 

; 876 14 : : 

; 877 1434 ! 

; 878 1435 Lastomd = .objmo apes ! SAVE ADDRESS OF 
: 444 14 $ aro! S nae = mnerec “git naming] + “phgrec Cmhd$b_namlng) + 1 F ' GET OFFSET TO 
; 880 14 creBdat = modident [ emodident (0) + 1 ; ' GET OFFSET TO C 
: oe) 1438 outdes fo = len$c -mapl ine ; ! RESET OUTPUT BU 
; ¢ 1439 outdes = outline ; ' POINT TO FIRST 
; 88 1440 

; a 1203 if .objauxfnb Cnam$b_rsl] | fil L 

; -objauxfnb Cnam$b_rs equ nam_\n 

s 4] 1208 then . 

; 88 1444 ' 

; 888 1445 : NO NEED TO TRIM FILE SPEC 

; 889 1446 

; 90 1447 begin 

: 891 1448 filnam bescéu.. Length]. = .objauxfnb Cnam$b_rsl 

; 89 1449 pases dsc$a_pointer] = .objauxfnb Cnam$l_rsa 

; 89 1450 

; 894 1451 else. 

; 895 1¢26 ! 

; 896 145 : TRIM FILE SPEC TO ALLOWABLE OUTPUT FIELD SIZE 

; 897 1454 ! 

; 898 1455 begin 

; 899 1628 Local status, 

; 900 145 size, 

: 901 1458 rs_nam : vector (2) ; 

; 90 1459 

; 1460 rs_nam £0} = .,objauxfnb Cnam$b_rsl 

3 aRe 1ee3 rs_nam = .objauxfnb Cnam$l_rsa 

; 906 1463 filnam Cdsc$w_length] = filnam_Lng ; 

: 907 1464 filnam Cdsc$b_dtype = dsc$k_dtype_t : 

; 908 1465 filnam Cdsc$b_class = dsc$k_class_ ; ; 

s 4 1008 filnam Cdsc$a_pointer) = filnam_buf ; 

3 ah 1608 4 if (status = LibStrim_filespec (rs_nam, filnam, Zref (filnam_lng), size)) 
: 315 1470 filnam Cdsc$w_length] = .size 

; 914 1471 se : 

3; «915 Ore trimfail (.status) ; 

; 916 147 end ; 

; 917 1474 

; 918 1475 if .mhdrec Cmhd$b_naming] Lequ sym$c_shortname 

; 919 1476 then 

: 920 1477 ! 

; 921 1478 : MODULE HAS SHORT NAME 

3; 9 § 1479 ! 

3; F 1480 begin 

: : 3 16 1 iz smodident C0] lequ sym$c_shortname 

; 3g6 14 : 4 negin 

: 92 1484 4 fao_errcode = 

: 928 1485 4 “sys$fao (objmd_cntrl_str, petgtae, outdes 

: 44 14 4 mhdrec Cmbg$b_ nam|ng 

: 950 14 4 smodident 

; «6951 1488 4 ,-objmoddsc Comd$l_alloc] 


1E-Sep-1986 00:05:58 YAKaT! BLing-32 v4.0-743, 
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SF 
LNK_MAPROUTINES 19-5 Sep 4 00:05:38 AX-11 Bliss-32 V4.0-7 
v04-000 14-Sep eats 4 9 $ 93:34 LINKER.SRC LNKMAPRTN. 3 2;1 
: 9 1489 4 -«filnam Cdsc$w_len thd. -filnam Cdsc$a_pointer) ‘ 
; 9 : 1436 4 date_fld_ing, <creSdate ‘ 
; 9 1491 4 j : 
; 935 1438 & end ‘ 
3 9 1493 3 ‘ 
3; ¥ 1494 4 begin ; 
; 938 1495 5 if (faoerrcode = sys$fao (objmd_cntri_st1, outsize, outdes, mhdrec Cmhd$b_naming])) ‘ 
; 939 1o38 4 then ‘ 
: 940 149 begin ‘ 
; 941 1498 Ln $mapo "Fe ag red gt -outsize) 3 ° 
; 94 1499 outdes = len 5 -mapline r ° 
; 94 1200 outdes ¢ = outline ; ° 
; 944 1501 fao yes = - 
; 945 1286 “sys$fao (objmd_cntrl_st2, outsize, outdes ° 
: 946 150 »modident (0 ° 
: 947 1504 e099 {nodeec omd$l_alloc] ° 
; 948 1505 »efilnam Cdsc$w_len thi, -filnam Cdsc$a_pointer] ° 
>; 949 1206 date_fld_lng, ‘creBdate ° 
; 950 150 j : 
; «951 1508 4 end ; : 
3 826 1509 end ; e 
3 1510 end ° 
> 954 1511 else ° 
: 955 1316 ! ‘ 
; 956 151 i MODULE HAS LONG NAME : 
; 957 1514 ! ‘ 
: 958 1515 begin : ; 
; 959 1516 4 if (fao_errcode = sys$fao (objmd_cntrl_st1, outsize, outdes, mhdrec Cmhd$b_naming])) ‘ 
; 960 1517 3 then ‘ 
: 961 1518 4 begin ‘ 
; 96 1519 4 Lnk$Smapout ag ph) ay spytetaee 3 ! OUTPUT MODULE NAME ° 
: 96 1520 4 outdes py = len$c map line ; ! RESET : 
3 He 12 1 2 outdes = outline ; ° 
; 966 15 : 4 if .modident (0) lequ sym$c_shortname ‘ 
; 967 1524 4 then ‘ 
; 968 1525 4 “tee errcode = e 
; 969 1526 4 “sys$fao Coping. cntrl_str, outsize, outdes : 
: 970 1527 4 : 
; 971 1528 4 eaeidee C0} : 
3 4 1529 4 oo9b aad c Comd$l_alloc] : 
3 oT 1530 4 nam Cdsc$w_len thi, -filnam Cdsc$a_pointer] ’ 
: 976 1531 4 vat fld_lng, <creSdate 
; 975 13 é 4 j 
: 976 1 4 else 
3 977 1534 4 fao_errcode = 
; 978 1535 4 “sys$fao Cobjnd. enter st2, outsize, outdes 
: 979 15 $ 4 -mod 
: 980 15 4 220b noad c¢ Comd$l_alloc] 
; 981 1538 4 »-filnam Cdsc$w_len thi, -filnam Cdsc$a_pointer] 
; 98 1539 4 date_fld_lng, <cre&date 
; 98 1540 4 j 
; 9 1541 end ; 
; 6985 1366 end ; 
3; 9 154 
; 98 1544 if not .fao_errcode 
; 988 1545 then 


| 
3 
LINK_MAPROUT INES iS-se -1984 00:05: AX-11 Bliss-32 V4.0-74 Page 42) 
v04=000 12-88-1382 ° 03:38 LINKER. SRCJLNKMAPRTN.B32;1 ° (9) 
; 989 } r¢ faofail (.fao_errcode) | 
3 | 1 “3 begin 
; § 154 outdes Fig = outline + .outsize ; ' POINT TO CREATOR FIELD 
: 99 1 9 outdes [0] = .outdes (0) - .outsize ; 
; 9946 1 end ; 
; 995 1552 end ; 
OFFC 00000 ENTRY LNKSMAPHHD , Save R2,R3,R4,R5,R6,R7,RB,R9,- = 1375 
58 9000000v FF 9E 9002 MOVAB LNK$MAPOUT, R11 : 
5a 000000006 00 9€ 000 MOVAB SYSS$FAO, Ri : 
59 9090000" EF 9E 0019 MOVAB OBJMD_CNTRL_ST1, R9 : 
38 0000 F 01 MOV OUTDES, RB : 
¢ ¢ Ole SUBL #60, S ; 
51 000000006 p 6 5 0 ADDL3 #38, LNKSGL_CURFIL, R1 + 1431 
04 AC D 00029 MOVO OBJREC R2 + 1430 
70 A 53 D0 90 D MOVL 3, LASTOMD + 1435 
50 0 Ag 9a 00031 MOV ZBL 3¢R2) R + 1436 
54 06 A240 9E 00035 MOVAB 6(R2)(ROJ, MODIDENT : 
56 64 9A O003A MOVZBL (MODIDENTS, R6 t 1437 
57 1 A644 OE 900 p MOVAB 1<R6) CMODIDENTI, CREBDATE ; 
68 4 8F 9A 0004 MOVZBL #132, OUTDE : 1438 
04 AB FF7C §=6CB. OSE 90046 MOVAB QUTL INE OUTDES+4 + 1439 
24 03 Al 91 0004C¢ CMPB (R1), #36 + 1442 
OC 1A 9005 BGTRU 1$ : 
4 AE 03 Al 98 905 MOVZBW 3(R1), FILNAM + 1448 
8 AE 04 Al 00 000 MOVL 4(R1). FILNAM+4 + 1449 
3F 11 0005C BRB 38 + 1442 
08 AE 03 Al 9A 0056 1$: MOVZBL 3(R1), RS_NAM + 1460 
C AE 04 Al DO 0006 MOVL  &(R1),_RSTNAM+4 + 1461 
4 AE 01060026 BF 00 00068 MOV #17694756; FILN : 1463 
8 AE 10 AE 9E 9070 MOV FILNAM_BUF, FILNAM+4 + 1466 
04 AE 9F 0007 PUSHAB SIZE + 1468 
04 AE 24 pO 00078 MOVL #36, 4(SP) : 
04 AE 9F 0007C PUSHAB 4(SP) : 
C AE OF 0007F PUSHAB FILNAM : 
14 AE OF 2 PUSHAB RS_NAM ; 
000000006 90 4 FB CALLS #47 LIBSTRIM_FILESPEC ; 
0 0 € BLBC STATUS, 2$ ; 
34 AE 06 =A ae F MOVW size. fILNAM + 1470 
9 94 BRB 4 ; 
0 oD %6 2$: PUSHL STATU + 1472 
FETE CF 01 FB CALLS #1, TRIMFAIL ; 
OF 05 Ag 91 00090 38: CMPB«S(R2), #1 + 1475 
1A 000A1 BGTRU 6$ ; 
OF 6 91 OO0A CMPBseR6, #15 : 1481 
1 1A BGTRU 5$ ; 
7 oD PUSHL CREBDATE + 1490 
11 DD OOOAA PUSHL #1 + 1487 
40 AE bp DOOAC PUSHL FILNAM+4 > 1489 
7E 40 AE 3C OOOAF MOVZWL FILNAM, -(SP) ; 
08 A3 DD 00083 PUSHL 8(R3) > 1488 
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global routine Lnk$maping (langaddr, Langlen) : novalue = ! ROUTINE TO OUTPUT LANGUAGE PROCESSOR DATA 


te 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE TAKES INFORMATION 

RECORD AND INSERTS IT_INTO THE 

LINE IS THEN WRITTEN TO THE MAP 
FORMAL PARAMETERS: 


LANGADDR == ADDRESS OF THE LANGUAGE PR 
LANGLEN == LENGTH OF THE LANGUAGE PROC 


FROM THE LANGUAGE PROCESSOR SUB-HEADER 
OBJECT MODULE OUTPUT LINE. THIS OUTPUT 


CESSOR NAME STRING 
SSOR NAME STRING 


mo 


IMPLICIT INPUTS: 

THE MAIN BODY OF THE OBJECT MODULE OUTPUT LINE IS ALREADY BUILT. 
IMPLICIT OUTPUTS: 

THE OBJECT MODULE OUTPUT LINE IS WRITTEN TO THE MAP FILE. 
ROUTINE VALUE: 

NOVALUE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 


THE LANGUAGE NAME WILL BE TRUNCATED TO THE MAXIMUM ALLOWED LENGTH 
AS DEFINED BY ‘‘LENSC_LNGNAM’’ 
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begin 

local 
eblock : ref block C byte). ' POINTER TO ERROR TEXT BLOCK 
nextblock : ref block C, byte), i TEMPORARY POINTER 
fao_errcode; ! FAO ERROR CODE 


if not (fao_errcode = sys$fao (creat_cntri_str, outsize, outdes ! FORMAT LINE 
min (Len$c_ingnam, .langlen), .langaddr)) ! TRUNCATING TO MAXIMUM ALLOWED LENGTH 


then 
faofail (.fao_errcode); ! FAO FAILURE 
outsize = .outsize + .outdes [1] - outline; CALCULATE TOTAL LINE SIZE 


' 
ink$map y (outline, .outsize); i 
outdes f ; = len$c_mapline; ' RESET THE OUTPUT BUFFER DESCRIPTOR 
outdes (1) = outline; ' FOR NEXT USAGE 


IF THERE IS ANY ERROR TEXT STASHED AWAY TO PRINT NOW, THEN DO IT 
if (eblock = .lastomd Comd$l_errtxt]) neq 0 ! IF THERE IS TEXT TO PRINT 


Kk 3 
1er$ep=19B6 12:60:31 EMTAKERsSmeSLAKMMPATN.682: 1 


3; Routine Size: 131 bytes, Routine Base: S$CODE$S + 0430 
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PeSe Se Ge Se Ge Se Ge Se Ge Se Se Ge Se Se Fe Fe Se Se Fe Se Sete Fe Se Se Be Se BeBe Se Be Se Se Be Se 


(10) 


1554 


1599 


1598 


; } ‘ } 1} then 
; 1 18 while seblock neq 0 ! THEN PRINT IT ALL 
:4 1615 begin 
3: 1 1 1 Lnk$mapout (eblock Coeb$t_text], .eblock Coeb$w_bytcnt]); |! PRINT A MESSAGE 
; 196 191 nextblock = .eblock oeb$T_nxtoebj; | GET ADDRESS OF NEXT TEXT BLOCK 
: ; ¢ 1818 + = .nextblock; ' AND GO AGAIN 
:14 16 ; 
; 1065 1621 Lastomd pondst pretxtd = 8: ! CLEAR ERRTXT FIELD (USED AS NXTADR DURING PASS 2) 
; 1206 16 ¢ Lastomd Lomd$\_lsterr] = 0; ! CLEAR LSTERR FIELD (WHICH IS ALSO ADRCNT DURING PASS 2) 
: 1008 12 soeerns ' NO MORE TO DO 
55 00000000V EF aE goons ses temanapbor, eee ene 
54 00000000' EF 9E 9009 MOVAB OUTSIZE, R4 
04 AC DD 0010 PUSHL LANGADDR 
08 AC DD 0001 PUSHL LANGLEN 
¥ sh gag ge ph 
6E 1E pO 00018 MOVL #30, (SP) 
ro ot EAE te Euan ayes 
00000000' EF 9F $09 3 PUSHAB CREAT_CNTRL_STR 
000000006 00 95 Fe 0029 CALLS #5, SYSSFA 
07 0 €8 000 BLBS §FAO_ERRCODE, 28 
50 DD 000 PUSHL FAO“ERRCODE 
FD81 —sCF 01 FB 000 CALLS #1, FAOFAIL 
51 64 3C 0003A 2$: MOVZWL OUTSIZE, R 
a) FEDS «Ca SE. Opa apple gurpessd 
64 31 50 iS 046 W3 RO, R1, OUTSIZE 
E 64 3¢ O4A MOVZWL OUTSIZE, -(SP) 
FF74 C& 9F 0004D PUSHAB OUTLINE 
65 es FB 0051 ALLS a2 LNKSMAPOUT 
FB AG 84 F OA 4 MOV2BL #132, OUTDES 
FC OG FF74 C4 OO 9 OVAB OUTLINE, OUTDES+4 
20 $8 AG D F MOVL Ast D. 
A p i nh ROVE ; (RO), EBLOCK 
7E 04 A 3¢ p ar MOVZ2WL 4(EBLOCK), -(SP) 
06 Ad OF : PUSHAB 6(EBLOCK) 
02 F CALLS #2, LNKSMAPOUT 
: D 7 MOVL  (EBLOCK), NEXTBLOCK 
33 0g 7 ROVL NEXTBLOCK, EBLOCK 
50 A4 00 00078 4$: MOVL ASTOMD, RO 
$8 OAS De OOOTE Cond = StROD 
04 00082 RET 
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ee 


global routine Lnk$mapadromd : novalue = 
begin 


Ooo 


AANA 


DWDONOULS UI 


CT MODULE ADDRESS DATA SYNOPSIS. 
NG A SHAREABLE IMAGE AND A FULL 


1 
leo 
loca 
ooee : block Cdsc$c_s_bln, byte], 
us, 
outlen, 
omdnum, 
omdptr : ref block C, byte]; 
' 
IF NOTHING TO PRINT THEN RETURN 


IN 


OOOCOCOCCCCO 
FASZS 


SESSSS= 
SHIVER 


if .lnk$gl_nadromd eql 0 then return; 


$33 


PRINT A BLANK LINE, FOLLOWED BY THE BOXED HEADER, AND 
THEN THE SUB-HEADER 


So 
aE 


333 


oy ot ineeen + 10 gtr .lnk$gb_linespp ! ENSURE ROOM FOR HEADER, SUBHEADER AND FIRST LINE OF TEXT 
n 


33 


begin 
Linecnt = .lnk$gb_linespp; 
if not Lnk$mapout (outline, 0) then return; 


ooo 
wr 
SSOTCS COCO E SSSI S ES POCO COCO SLES 


end; 
if not newline () or not mapbox (omdadrhdr) or not mapsubhdr (omdadrsubhdr) then return; 
OUTPUT THE INFO 
" omdnum = 0; 
outlen = 0; 


ch$move (dsc$c_s_bln, outdes, desc); 
omdptr = .lnk$gl_omdadrlst; 


ARAV=SSRIEAR 


while .omdptr neq 0 do 
begin 


a on 


f not (status = sys$fao (omdadrstr, outlen, desc, omdptr Comd$b_namlng], .omdptr Comd$l_adrcnt])) 
en 
faofail (.status); 


ed eed a kk 


desc Fdsc$u. length) = .desc [ scSy_length) = .outlen; 
desc [dsc$a_pointer] = .desc [dsc$a_pointer] + .outlen; 
omdnum = .omdnum + 1; 


if -omdnum eql 3 ! IF 3 ON LINE, OUTPUT AND RESET 
en 
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begin 


omdnum = 0; 
eneneve (dsc$c_s_bln, outdes, desc); 
end; 


endotr = ,omdptr Comd$l_nxtadr); 
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if not Lnk$mapout (outline, Len$c_mapline - .desc Cdsc$w_length]) then return; 


if .omdnum neq 0 then Lnk$mapout (outline, Len$c_mapline - .desc Cdsc$w_length]); 
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SY ale Save R2,R3,R4,R5,R6,R7,R8,- 


OMDADRHDR, R11 
LNKSMAPOUT R10 
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LNKSGB_LINESPP, RO 
LNK$GB_LINESPP, LINECNT 
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LIK_MAPROUT INES -Sep-1984 00:05: AX-11 Bliss-32 V4.0 Page 50 
v04=000 eae et a ee ta CET Tlie Pe 41) 

07 BLBS STATUS, 4$ 
PUSHL STATUS 1675 

FC9S.)sCF CALLS #1, FAOFAIL 
04 AE 4$ SUBW fLEN, DESC 1677 
8 AE ADDL2  OUTLEN. DESC+4 1678 
INCL NUM 1679 
03 CMPL OMDNUM, <3 1681 

BNEQ 6 

7E 04 MOVZWL DESC, 1685 


SUBL (SP), nike, (SP) 
CALLS ace " pcenemetacs 
L R $ 


6E 00000084 8F 


wn 
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CLRL_ OMDNUM 1687 
04 AE 0084 c9 MOVC3 a8 OUTDES, DESC 1688 
b 20 6$: MOVL ; (OMDPTR). OMDPTR 1691 
BRB $ 1670 
7$: TSTL we 1694 
BE $ 
7E 04 MOVZWL DESC, 
6E 00000084 8F SUBL3. (SP), rie. (SP) 
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; Routine Size: 235 bytes, Routine Base: $CODE$ + 04C0 


; 1143 1698 1 


° 
. 
. 
7 
os 
. 
° 
. 
oc 
. 
oO 
. 
o 
. 
°. 
© 
oO 
. 
° 
+ 
. 
. 
- 
. 
° 
. 
e 
. 
e 
. 
e 
. 
o 
2 
e 
e 
. 
° 
. 
e 
. 
a 
. 
@ 
. 
o 
° 
. 
. 
o 
. 
e 
° 
° 
. 
° 
> 
o 
7 
o 
. 
o 
. 
° 
. 
° 
. 
e 
. 
° 
. 
@ 
. 
e 
. 
a 
. 
o 
. 
a 
. 
e 
. 
° 
. 
e 
> 
° 
7 
° 
. 
° 
. 
° 
> 
° 
. 
a 
. 
e 
. 
o 
. 
° 
. 
e 
. 
° 
. 
a 
. 
- 


7 
1$-sSe0-1984 09:05:38 YANG IT BLiegS2 v4s0-742, | Page. 51. 
} 
| 
| 
| 


LK _MAPROUTINES 
v04=000 


global routine Ilnk$mappscts : novalue = ! ROUTINE TO OUTPUT PSECT SYNOPSIS 
1o4¢ 


i FUNCTIONAL DESCRIPTION: 


ViFWn-O°0 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
THE PSECT TABLES MUST HAVE ALREADY BEEN COMPLETED 
THE OBJECT MODULE TABLES AND THE CURRENT FILE DES 
BE AVAILABLE. 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


GES 


CRIPTOR MUST 


NONE 
SIDE EFFECTS: 
NONE 


begin 
routine print_psect (node) = 


ROUTINE CALLED TO PRINT ONE PSECT 


begin 
map node : ref block C, bytel; 


bind psectaddr = .node Cnode$l_ptr] : block C, bytel; 


FUN OOONA UE WIN $9 ODNOAOU EWN (OO ONOUS Wh "00M 


BPE SESE FAWN AIAN NPINPINONININPYDY 2 2 PO OS OOO 


local psctcontr : ref block kK fp ee - 
psctowner : ref block 
psectnamebuf : block Clen$c BR byte], ! BUFFER FOR LAST PSECT SUMMARY LINE 
fao_errcode, ' FAO ERROR CODE 
psectoffset, ' MODULE CONTR BASE ADDR 
psectend, ' END ADDRESS OF PSECT 
psectbase; ' BASE ADDRESS OF PSECT 


! 

i QUTPUT PSECT SECTION LINES TO MAP. 

if : -psectaddr fesehe: flags ps$m_rel) neq 0 ! PROVIDED bg Is eS wt ye 
p 


a ee ee ee T_T ee eet 


PUPS 
CSSSLESLASLSSELSARAV SS SSVSAGRANASSSISALERISSSIFALUNAS SSUES 


sc$w_flags ond nd Cops $m_lib or psc$m_ supres)) ' AND 
SPECIALLY DEFINED PSECT 


ee ee ee ee ee ee a ee ee a a ed a 
ee ee ee ae ee ee ee a el a a ee ee ee ee ee ee ee a ee a a ed ed 
NNN NNO 


PAK A WINN NI AI WNIUIRIDINID 2 2 


MEW —OOCONOuU 


DIAG & & 


and ( speocteger 
(gp 


neq Lib-or psc$m_supres) 


NOVALUE 
COMPLETION CODES: 
| 
| 
| 
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LNK_MAPROUTINES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 Page 52) 
v04=000 12286871382 99:08 :8 LINKER. SRCILNKMAPRTN.B 231 . (135 | 
3 3 oe 17 § 4 and (if .lnk$gl_ictimsk Clnk$v_long] ! PROVIDED IT IS LONG MAP | 
; 120 17 then (if newline () ! OUTPUT A NEW LINE 
3 3 Be 17 8 then true 
; : 5 1728 else return false 
| 
3 7 oF 1761 4 else if not .psectaddr psc $v. supres] ! OR THE P=SECTION | 
: 1208 1008 4 and .psectaddr Lpsc$l_length] neq 0 ! IS NOT EMPTY AND 
; 1209 1765 4 then true ! IS NOT SUPPRESSD 
3 : 19 1788 : else false | 
; 121 1766 3 then 
3} i§ 1769 4 begin | 
3: 1214 1768 4 psectnameline = 0; ! ZERO IN CASE OF NEW PAGE 
: 1215 1769 4 psectbase = .psectaddr (psc$l_base]; ' REMEMBER BASE ADDR 
; : 1 AA ? psectend = .psectbase + .psectaddr Cpsc$l_length]; ! CALCULATE END ADDR 
3; 1218 Ieee 5 if (.psectaddr Cpsc$l_length] neq 0) 
: 1330 HA ? then psectend = .psectend - 1; ! CALCULATE END ADDR 
3; 1 A 1775 «5 alignment = (case “peeesaees Cpsc$b_align] ! FIND ALIGNMENT ASCIC 
3 13 ; 1728 5 from to 9 of ! STRING ADDRESS 
; se 
3; 1 Si 1778 3 0] : alignbyte; ! BYTE ALIGNED 
3: 1225 1779 (5 1) : alignword; ! WORD ALIGNED 
: 1226 1780 5 $4 : at }eniong; ' LONGWORD ALIGNED 
3 igs? 1781 5 J : alignquad; ! QUAD WORD ALIGNED 
: 1228 178s 5 4 to 8) : alignd; ' OTHER ALIGNED 
; \¢¢8 \7e? : 34, : alignpage; ! PAGE ALIGNED 
; es 
; HE \7e? 2 ); ! GOT ALIGNMENT 
3 15 § 1787 5 args (0) = (if (.psectaddr Cpsc$w_flags] and gps$m_pic) eql 0 ! DECIDE IF PSECT IS 
: 1234 1788 5 then nopic ' NOT POSITION INDEPENDENT, 
; tH 1789 4 else pic); ' OR IS POSITION INDEPENDENT 
3 12 1790 5 args C1] = (if (.psectaddr Cpsc$w_flags] and gps$m_lib) eql 0 ! DECIDE IF PSECT IS 
; 1237 1791 5 then usr ! DEFINED BY THE USER 
; 1238 1736 4 eise Lib); ! OR FROM A LIBRARY 
3; 1239 1793 5 args (2) = (if (.psectaddr Cpsc$w_flags] and gps$m_ovr) eql 0 ! DECIDE IF PSECT IS 
: 1240 1794 5 then con ' CONCATENATED 
3 1241 1795 4 else ovr); ! OR OVERLAID 
3 1 ri} 1796 5 args (3) = (if (.psectaddr Cpsc$w_flags] and gps$m_rel) eql 0 ! DECIDE IF PSECT IS 
3 124 1797 5§ then abs ! ABSOLUTE 
. 48 1599 g (4) (Tt ad ddr Cpsc$w_flags) and $m_gbl) eql ; ” ME MC OEC IDE IF PSECT IS 
: 1s 2 args ~ opepete r Cpsc$w_flags] and gps$m_g eq : 
: 1246 1800 then lcl ' LOCALLY DEFINED 
3 1247 1801 4 else gbl); ! OR GLOBALLY DEFINED | 
3: 1248 1998 2 args (5) = (if (.psectaddr Cpsc$w_flags] and gps$m_shr) eql 0 ' DECIDE IF PSECT IS 
3: 1249 130 then noshr ' NOT SHAREABLE 
3; 1250 1804 4 e\se shr); ' OR IS SHAREABLE 
: 1251 12 : args (6) = (if (.psectaddr Cpsc$w_flags] and gps$m_exe) eql 0 ! DECIDE IF PSECT IS 
31 26 1 s] then noexe ' NOT EXECUTABLE 
3 125 1807 4 else exe); ! OR IS EXECUTABLE 
: 1254 1 8 : args (7) = (if (.psectaddr Cpsc$w_flags] and gps$m_rd) eql 0 ' DECIDE IF PSECT IS 
3; 1255 1 then nord ' NOT READABLE 
; : 3§ : 1§ 3 (8) TPE eats ddr Cpsc$w_flags) and gps$m_wrt) eal 0 ”o MOE IDE IF PSECT IS 
: args = -psectaddr (psc$w_flags] an s$m_wrt) e 
:; 1258 1812 3 . then hourt . . » ” ! NOT WRITEABLE 


Ee eee 2, EOL PCAN een IAAT ieee rae ee Ie! ie SES 


4 
-S$ep-1984 00:05: AX-11 Bliss-32 V4.0-74 Page 53) 
vouz000 NES 1foseoctgRe 19:20:37 LINKER. SRCLNKMAPRTN. B32; 1 (12) | 
| 
; lse wrt); ! OR IS WRITEABLE 
: i 80 : 12 é args (9] = at (. psectaddr Cpsc$w_flags] and gps$m_vec) eql 0 : 
: 1261 1815 2 then novec 
: 4 6¢ 1816 4 else vec); 
. 1 P 
; (f d ! FORMAT THE PSECT SUMMARY ALLOCATION LINE | 
; i e : 5 3 vrs oUt psectadde egecebnenlngs LOGu Sync ones <nene 
: ' 8s : 6 1a a atl x e psetteddr™ psc$b_namLng » blanks, peer Cpsc$l_base], -psecte| 
+ 1268 1822 6 ,-psectaddr Cpsc$l_lengthl, .psec addr psc$t jength : gtignnent | 
> 1269 1 : 6 »-psectaddr Cpsc$b ah ignd. orgs OJ, args TI, args tc | 
: 1270 1824 ,-args re -args [4], .args (5J, .args (6), .args [7], .args (8) | 
: : a! HF 5 é -args 
; tl, outsize, outdes 
: \ iF 18 $ ate espace Oeecteddr™ psisb_naming]. -psectaddr pescst_pese -psectend 
i 18h 1893 § espacctadde beacdt lengths. -peectaddr CoscSiolengtn). gl lensent 
: n Pe . r oe . * . 
: : ss is ; 3 nn Tt i. ores tel, args C85, -args C8), -args 93, -args (8) | 
; } § 1838 3 3 aes 
: 4 en 
; i at 183 4 faofail (.fao_errcode) 
: 1583 1839 4 *if not Lnk$mapout (outline, .outsize) ! OUTPUT THE FSECT ALLOCATION SUMMAR 
; 1588 1839 4 agg false; ! NO MORE OUTPUT, 1/0 FAILURE 
; 1286 1840 4 ee "| | 
; 1387 1842 2 ch$copy (.outsize, outline, Zascii® ', len$c_mapline, Peecentmeopy BseCT suman stn i aween 
; : ; i AND FL 
: 1390 ise é oes beers teed = eettedar lasetl neakanti ! GET THE FIRST CONTRIBUTING OBJECT 
4 1392 18ce é while (.psctcontr neq 0) do !' LOOP ONCE FOR EACH CONTRIBUTOR 
+ 129 1847 5 begin ; ; fl te, 
: = ; tr Cmpc$l_offset); ! CALCULATE BASE OF THIS CONTRIBUTI 
ii HRS Boectend'*" = cecctotiex ¢ :packcontr Enpedtcténgthd: | EALEULATE BASFOP"rhtSScOntataet Tox 
> 1296 1850 5 
: ) 
: i 3 1852 $ Md whe wee Pligg ore bow aoe Pry ° ' CALCULATE END ADDRESS 
> 1299 1853 5 : 
: 18 1885 6 ott atota ! FIND ALIGNMENT OF THIS eB». 
|} 1889 6 :; :; ! BYTE ALIGNED | 
; 1308 1887 3 6 : bene i WORD ALIGNED 
3 1305 1859 6 : alignlong; | LONGWORD ALIGNED 
31 1860 6 : align ued: i QUADWORD ALIGNED | 
ie BS Soh MEH am STEER ASD 
: : npage; i 
: : $9 8 é tes 8 ite ' GOT ALIGNMENT 
: : } 
: 1 if 1884 psctowner = .psctcontr Cmpc$l_ownomd); ! FIND OBJ MOD NAME | 
; 1318 i ! IF A FULL MAP | 
; 131 1 if .ink$gl_ctlmsk Clnk$v Long) AT CONTRIBUTION | 
+ 1314 1868 or (((.psctcontr Cmpc$l_Tength] neq 0)) i OR A NON ZERO | 
3; 1315 1869 6 and ' FROM A MAPPED MODULE IN | 
| 


F 4 
vos2000 1eo$ep=1986 Ve:40:3) — ELTNKERSSRESLNKMAPAIN-692;1 


OFFC 00000 PRINT_PSECT: 
-WORD Save R2,R3 
9E 000 MOVAB A 1 


rent 


™ 


LN 


; } 1 } 4 6 , '¢-psctowner Comd$b_flags] and omd$m_mapmod)) neq 0 ! A DEFAULT MAP 

; 1 18 1 ie ‘ then 

; 131 1875 6 egin ! OUTPUT THE CONTRIBUTION LINE 

; 1320 1874 ? if .psctowner Comd$b_naming] lequ sym$c_shortname 

; 1321 1875 then fao_errcode = sys$fao ( contrbstr, outsize, outdes 

3; 3 § 1876 6 . blanks, psctowner Comd$b_naming] 

3 1 1877 6 ; psectoffse » «psectend 

: 1326 1878 6 ooDpg Sconte mpc$l_length],.psctcontr Cmpc$l_length] 
; : 5 : 9 ? -alignment, .psctcontr Cmpc$b_align] 

3 1 ; 1 4 ° else fao_errcode = sys$fao ( contrbst2, outsize, outdes 

: 1328 1 § blanks, psctowner fomd$b_naming) 

; 1329 1883 6 §; 

; 1350 1884 6 

: 1331 1885 6 if not .fao_errcode 

3 1 ; 1 58 6 then faofail (.fao_errcode) 

3 1 1887 6 else if not Lnk$mapout (outline, .outsize) ! OUTPUT CONTRIBUTING MODULE LINE 

3 : $e Ht] ? then return false; ! NO MORE OUTPUT, 1/0 FAILURE 

3 7 1890 8 if .psctowner Comd$b_namlng] gtru sym$c_shortname ! IF NOT SHORTNAME 

: 1337 1891 then begin ! THEN OUTPUT REMAINDER 

; 1338 1098 7 fao_errcode = sys$fao ( contrbst3, outsize, outdes 

: 1339 1893 7 - blanks 

; 1340 1894 7 »-psectoffset, .psectend, .psctcontr Cmpc$l_length] 
3 1341 1895 7 ,spsctcontr bmp l_length, alignment 

3: 1 ; 1308 7 -psctcontr (mpc$b_align] 

; 134 1897 7 5"; 

3 1344 1898 7 if not .fao_errcode 

3 1345 1899 7 then faofail (.fao_errcode) __ 

: 1346 1900 7 else if not lnk$mapout (outline, .outsize) ! OUTPUT CONTRIBUTING MODULE LINE 
3 1347 1901 7 then return false; !' NO MORE OUTPUT, 1/0 FAILURE 
3: 1348 126 6 end ; 

3 1349 190 end; 

; 1350 1904 

3; 1351 1905 psctcontr = .psctcontr Cmpc$l_nxtmpc); ' GET NEXT CONTRIBUTING MODULE 

; 1328 1308 ? end; ' END THE CONTRIBUTOR LOOP 

5 138 1908 4 psectnameline = 0; ! ENSURE NO LINE PRINTED 

3; 1355 1909 end; 

3 1329 1910 return true 

3; 1357 1911 end; 


ica OB:05:38  YAK-t1 Blisg-32 ve.0-742 © age, 


50 2 FFFFEFFD SF C BICL3 #-4099, R2, RO : 1754 
00001002 Fy 4 CPL RQ. & #4698 + 1755 
0D 000000006 E 9 BLBC = LNKSGL_CTLMSK+1, 3$ : 175 
v CALLS #0, NEQLINE + 175 
00000000 F F 4 CALLS #0, N 9 $ 
O2EA : 4A BRW 60$ + 1759 
D3 0B A6 4 € 4D 3$: BBS #4, 11(R6), 18 : 1761 
a Gh gg ‘hata 
78 AA D4 4$: CLRL § PSECTNAMELINE : 1768 
9 18 AB OD A MOVL 34 (RO) PSECTBASE : 1769 
1 1¢ AB OD MOVL 8(R6), RI : 1770 
5a 9 3] C 0 6 ADDL3 1, PSECTBASE, PSECTEND : 
1 DS 000 TSTL = R11 + 1772 
0g 13 000 BEQL «=sSS$ : 
p 006A DECL PSECTEND + 1773 
9 00 2c AG BF 006¢ 5$: CASEB 44(R6), #0, #9 + 1775 
0026 0020 OTA 014 0071 6$: <WORD 7$-6$,- : 
C 002¢ ec eC 0079 g8-68,- ; 

0032 002¢ 0081 98-6 - : 
11$-6$.- : 
11$-6$,- : 
11$-6$.- : 
11$-6$.- : 
11$-6$.- ; 
12$-6$ : 

50 DC «AB OSE 00085 7$ MOVAB AL IGNBYTE, RO : 
1C 11 00089 BRB 13$ : 
AB 9E 0088 8$ MOVAB ALIGNWORD, RO : 
16 11 OOO8F BRB 13$ : 
AB H 0091 9$ MOVAB ALIGNLONG, RO ; 
10 1 0093 BRB 13$ ; 
AB H 009 10$ MOVAB Ai 1GNQUAD, RO : 
OA 11 00098 BRB 13$ : 
AB H 0090 11$ MOVAB AL 1GN2, RO : 
04 1 0a BRB 13$ : 
9E OA 12$:  MOVAS ALIGNPAGE, RO : 
3 06 OA? 13$ MOVL RO. ; 
E OAC BLBS =R : 1787 
AB : OAF MOVAB NOBIC, RO : 
04 1 BRB 15$ : 
ag 9 B5 14$:  MOVAB PIC, RO : 
50 D B9 15$:  MOVL RO, ARGS : 
01 f 00BD BBS #1. R2, 16% : 1790 
AB F C1 MOVAB Usk. rb ; 
04 1 C3 BRB : 
AB 9 ¢ 168: MOVAB LIB, RO : 
50 D (B 17$: MOVL RO, ARGS+4 : 
0 f CF BBS #2. R2, 18% > 1793 
AB ; 03 MOVAB CON, rb : 
04 1 D BRB $ : 
9 D9 18$:  MOVAB OVR, RO : 
; D DD 19$: MOVL RO, ARGS+ : 
f E BBS #3. R2, 208 : 1796 
AB SE O00E MOVAB ABS, RO : 


—_——— 


bse :05: ° - 0-74 Page 56 
vouz000 ES e-$eb- 1986 15:00:31 ERTNKER SRESLAKMAPRIN-BS2; 1 35 


04 11 00069 ere, 218 : 
50 1B A F Sis: ROVE” ROG ARGS#I : ; 
0 # i Hm Ran aes Sey ; 
0 re eo ne gee 
20 4 FD 228: MOVAB L, RO : : 
50 ; $33: hove a0. ARGS#1 : 1862 ; 
16 AA 4 : BBS #5. R2, ; : 
” 56 67 AB se ! lS wy : ; 
eS i 4$: MOVAB SHR, RO : : 
50 28 88 BB 011s SS; MOVED RON ARGS#20 : 1805 ; 
18 AA 06 £0 0011 BBS HG, 2.268 ; 
™ 36 sO ee 118 BOyAe  WaENE. O 
04 11 OO11F | XE, RO : ; 
ee) a we om | 
129 ; . 
$ ; ; 
RB oe boise ROVAB NORD, RO 
- 0c TT O01 BRB (298 
RB 9E 00183 28%:  MOVAB RD, RO F : 
oo Lh ” 50 B65 00187 298; ROWE RO, ARGS+28 ; 1811 : 
7 5 73 8B SE OOI3E MOVAB NOURT."RO : : 
AB 9E OO14S 308: ROVAB UT, RO ; : 
2 ro 143 318; OR + ARGS+32 ; 1814 : 
24 AA 7 FO 00140 S , Re, 328 ; : 
06 ; a & pe 1 MOVAB VEC, RO ; 3 
04 11 001 uf VEC, RO : ; 
a 25 AB i 363: ROVE RO, ARGSe3 : 1819 ; 
F 20 Ab 91 0015F . : F 
0 3c (OA 193 p+ dy ARGS+3 , =(SP) i; 1824 : 
7E eS BR Rig MOVO © ARGS+24, = (SP) : : 
fi 1h MA DD 160 mova = ARGSSBe'=(sP) : 1823 : 
7e 96 AA 7D 0012) HOV S, =(SP) : : 
7E 4 AA gp \f3 MOVZBL aeeRé) , S(SPD > 1822 : 
7E GE AG 9A 0017S PUSHL” ALL NMENT 3 
1 DD 18s PUSHL Ri > 1821 : 
8 DD 001 PUSHL — PSECTEND ' 
1 PUSHL —24(R6) ; 
1 & BD Ra PUSHL R11 : 
he OF OOIBC SHAB 45(R6) ; 1820 ; 
oe 8 18F PUSHAB OUTDES ; 
oo 8 Ph mt PUSH. RIO ; 
2B F 196 PUSHAB PSC_CNTRL STR ; 1821 : 
FOF CB OF 0194 CALLS es > SYSSFAO : : 
000000006 00 A B35: BRB 35S : 1831 : 
1A 34$ Move —ARGS+ 2. -(SP) ; 
i fe AA 2D OIA mova ARGS? ° Th3P) ; 
rE 16 AA 9D OO1A8 MOVa © ARGS#+16, -(5 


4 
LINK _MAPROUTINES tose =1984 00:05: AX-11 Bliss-32 V4.0-74 Page 57 
v06=000 1 ~300n 138% 99:03:39 LINKER. SRCJLNKMAPRTN.B32; 1 . «135 
ze C AA 7D 0O1AD MOVQ  ARGS+8, =(SP) : 1830 : 
f 4 AA 70 0018 MOVO ARGS, -(SP) : | ; 
E £ AG 9A 0018 MOVZBL 44(R6), =(SP) : ; 
FF A DD 0018 PUSHL ALIGNMENT ; 1829| 
1 DD 00180 SHL : : 
& DD doled PUSHL  PSECTEND : 1828 
18 A6 OD 14 PUSHL atthe) : : 
2D AG OF 1G PUSHAB 45(R6) : : 
FB AA OF OOIC PUSHAB OUTDES + 1827 ; 
Fa28 eB Oe BOT EE Poets Ree CNTRL.ST1 : : 
000000006 9 8 F 155 CALLS #30; RY SSFAO + 1828 F 
3 DO 00109 35$:  MOVL RO, FAO ERRCODE ; : 
9 E8 0010¢ BLBS  FAO_ERRTODE, 36$ + 1819 : 
7 OD O1DF PUSHL FAO-ERRCODE + 1835 : 
FAG? CF 1 FB OO1E1 CALLS #1, FAOFAIL : : 
14 11 166 BRB 37§ ; : 
7 6A 3¢ 1E8 36$:  MOVZWL OUTSIZE, -(SP) + 1837 ; 
FF74 CA 9F OO1EB PUSHAB OUTLINE ; : 
00000000v FF ; re O1EF CALLS #2, LNKSMAPOUT : : 
3 O1Fg BLBS RO, 37$ : : 
0138 31 OO1F BRW 6 : : 
0084 8F 20 FF74 CA 6A C OIF 37$:  MOVCS OUTSIZE, OUTLINE, #32, #132, PSECTNAMEBUF =: 1841 : 
78 AA 6— 9 6 8 MOVAB PSECTNAMEBUF, PSECTNAMELINE + 1843 ; 
52 0c Ag DO 00 OA MOVL VecR6), PSCTCONTR + 1844 3 
12 OO20E 38$ BNEQ 3 $ + 1846 ; 
0110 31 0021 BRW 8$ ; : 
55 59 08 Ag C1 00213 39S ADDL3 8 (PSCTCONTR), PSECTBASE, PSECTOFFSET + 1848 : 
54 0C A2 00 0021 MOVL.  12(PSCTCONTRS + 1849 : 
5g 55 54 C1 0021C ADDL3 R4, PSECTOFFSET, PSECTEND ; ; 
21 D4 00 9 CLRL = RV : 1851 ; 
4 D3 0 TSTL = RG : ; 
4 13 00224 BEQL 40S : ; 
1 06 0226 INCL RT ; : 
5 p 0228 DECL § PSECTEND : 1852 ; 
09 00 10 A2 8F 0022A 40$:  CASEB 16(PSCTCONTR), #0, #9 > 1854 ; 
0026 0020 001A 0014 O2oF 41$: WORD  42$-41$,- : ; 
002¢ 002¢ 00¢¢ o02¢ 00 7 43$-41$.- : : 
0 02¢ 023F 44$-41$.- : : 
45$-41$.- : ; 
46$-41$.- : ; 
468-418, ~ : F 
46$-41$.- : : 
46$-41$.- F ’ 
468-418, - : 3 
47$-41$ : : 
50 pc AB 9 43 42$:  MOVAB AL IGNBYTE, RO : : 
1c 1 4 BRB 4 ; ; 
50 2 AB H 49 43%:  MOVAB AL IGNWORD, RO : : 
16 4D BRB 4 ; ; 
50 E8 AB 4F 44%:  MOVAB AL IGNLONG. RO : : 
1 BRB 4 : : 
50 EE AB 9 45$: ROVAB ALIGNQUAD, RO : : 
50 F4 AB GE B 46$: MOVAB ALIGN2, RO : 3 


4 

LNK _MAPROUTINES tbese 1984 00:05: AX-11 Bliss-32 V4.0-74 Page 58 LN 
v04=000 1 ~3e0nt 38 90:03:99 LINKER. SRCILNKMAPRTN.B 2:1 . (135 vO 

04 i SF BRB $ ; : 

50 FA l 47$:  MOVAB ALIGNPAGE, RO : F 

FF70 A 50 D 48$: MOVL ALIGNMENT : ; 

04 A2 D0 A MOVL (PSCTCONTR), PSCTOWNER ; 1865 ; 

000000006 Q BLBS LNKSGL CTLMSK+1, 51$ + 1867 ; 

BLBS $ + 1868 ; 

OOAF 78 49$: BRW : : 

8 16 AB 0 3 208: BBC #4, 20(PSCTOWNER), 49S : 1870 ; 

OF 28 AS 18: CPB {PSCTOUNER) , wis ; 1874 ; 

7E 10 A2 9A MOVZBL 16(PSCTCONTR), -(SP) + 1879 : 

FF7 A DD 0 A PUSHL ALIGNMENT : ; 

4 DD PUSHL : 1878 ; 

4 DD PUSHL : ; 

0120 F BB 0029 PUSHR  #*M<RS,RB> + 1877 : 

A3 OF PUSHAB 40(PSCTOWNER) + 1876 : 

5B 0D 00 PUSHL R11 + 1875 ; 

F8 AA OOF 0 98 SHAB OUTDES : ; 

5A 0D PUSHL 0 : 3 

F960 cB F 002A PUSHAB CONTRBSTR : ; 

000000006 00 FB 002A4 CALLS #11, SYSS$FAO : 1876 ; 

15 11 0028 BRB 53$ : : 

28 AS’ 9F OO2ZAD 52$:  PUSHAB 4O(PSCTOWNER) + 1882 : 

5B DD 00280 PUSHL ‘211 + 1881 : 

F8 AA 9F 00 % PUSHAB OUTDES : ; 

5A DD 0028 PUSHL R10 : ; 

F99C CB OF 00287 PUSHAB CONTRBST2 : : 

000000006 00 95 FB 028 CALLS #5, SYSS$FAO + 1882 3 

57 0 DO 002C2 53$:  MOVL RO, FAO ERRCODE : ; 

09 57 €8 O02C BLBS  FAO_ERRTODE, 54$ : 1885 ; 

57 0D 002c8 USHL FAO-ERRCODE + 1886 ; 

FO7E CF 01 FB OO2CA CALLS #1, FAOFAIL : : 

11 11 OOOCF RB 55$ ; ; 

7E 6A 3¢ 0201 54$:  MOVZWL OUTSIZE, -(SP) : 1887 ; 

FF74 CA 9F 00204 PUSHAB OUTLINE : ; 

00000000v EE g FB 0208 CALLS #2, LNKSMAPOUT : ; 

5 : O2DF BLBC RO, 60$ : : 

OF 28 A3 91 O02E2 558: CMPB 40(PSCTOWNER) , #15 : 1890 : 

42 1B 00 EG BLEQU 57$ : : 

7E 10 A2 9A 002E MOVZBL 16(PSCTCONTR), -(SP) + 1896 : 

FF70 CA DD OO2E PUSHL ALIGNMENT + 1895 3 

4 0D 0 F PUSHL R4 : 3 

4 DD O02F SHL RG + 1894 : 

0120 BF BB OOF SHR #°M<RS,RB> : : 

B DD 002F8 PUSHL R11 : 1892 : 

F8 AA 9F OOOFA PUSHAB OUTDES : : 

SA OD O002FD PUSHL Ri : : 

F9C4 «= CB.OSF:s«OOO FF PUSHAB CONTRBST3 : ; 

000000006 99 AF 3 CALLS #10, SYSSFAO ; : 

9 D A VL RO, FAO_ERRCODE : : 

09 E BLBS  FAO_ERRCODE, 56$ : 1898 ; 

7 DOD 0031 PUSHL FAO-ERRCODE > 1899 : 

F936 CF 1 Fe 1 CALLS #1, FAOFAIL ; : 

11 1 BRB 57$§ ; : 

7E 6A 3C 00319 56s MOVZWL OUTSIZE, -(SP) > 1900 : 

FF74 cA F 1 PUSHAB OUTLINE : : 

00000000V_ EF 2 FB 0032 CALLS #2, LNKSMAPOUT : : 
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NK _MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 p 9 

042000 aaah rik eS a Et oS ne age 43) 
50 € 7 BLBC ~=_«aRO,,_- 608 ; 

98 m:: 08 A 57S: MOVL PSCTCONTR), PSCTCONTR : 1905 

78 AA DG " $: CLRL §PSECTNAMELINE : 190 

50 07 2 gf: MOVE #1, RO : 1990 

50 bs 60$:  CLRL RO + 1911 
4 9 RET F 


Routine Size: 826 bytes, Routine Base: SCODES + OSAB 


MAIN BODY OF LNKSMAPPSCTS 
START ROUTINE OUTPUT. 


ooowowvowno 
3 


if .lnk$gl_ctlmsk Clnk$v_brief) 
then return; NO, RETUR 


subhdline = 0; INITIALIZE SUBHEADER ADDR 
if .ink$gl_ctlmsk Clnk$v_long] ! IF A FULL MAP 

then (if not newpage () Ehen return ) OUTPUT NEW PAGE AND HEADER 
else (if not newline () then return ); OTHERWISE JUST A NEW LINE 


OUTPUT PSECT HEADER 


MORE op dy BRIEF MAP? 


if not mapbox (psecthdr) 
then return; 


MPOPMoOPoTorororofornofnp 


MEUM (SO OONOULS WN SOOONOULS WH 


if not mapsubhdr (psectsubhdr) OUTPUT PSECT SUB-HEADER 


then return; 


WANA 


LibStraverse_tree (ink$gl_maplst, print_psect); TRAVERSE TREE TO PRINT PSECTS 


return true 


a nt a a es ot a ss SY ss as YY YY 
vu 


a ek ak a td ed od = a = 2 


Ww 
~ 


1 end; OF LNKSMAPPSCTS 


ss 


Oooo 
oooo 


-ENTRY LNKSMAPPSCTS, Save nage tng 
8B fi. LNKSGL_CFLMSK+1, $ 


S 
LNKSGL_CTLMSK+1, 1$ 
#0, NEQPAGE 


BRB 
CALLS #0, NEWLINE 
BLBC 


PUSHAB PSECTHDR 
CALLS #1, MAPBOX 


51 000000006 00 
445449 
09 000000006 

00000000V_ EF 
00000000v ef 


1 
00000000° 
00000000v ef 


nm 
PAM 


NOD 0OW—- DOF 
= = > 

SVSmwoSsNS 

o 

> 

- 

- 

wn 


MOMUSMUSDSCOOMO 
O-— "0 —]="OONCO™— 
Sete Sete Sete Sete Seve Ge Se tee 

— 

o 

™~m 

o 


mn.omn.omn— "mom 


1 BLBC 0; 3$ 
00000000' A PUSHAB PSECTSUBHDR 1931 
00000000v ff 40 CALLS ae BAPSUBHOR 


Mm 4 
LINK 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 Pa 1 LNI 
v04=000 12-808-138e 90:08:89 LINKER. SRC JLNKMAPRIN.B52;1 9¢ 48) vO 
global routine Lnk$mapsyms : novalue = ! ROUTINE TO OUTPUT SYMBOL INFORMATION 


14 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE OUTPUTS ANY SYNOPSIS OF GLOBAL SYMBOLS REQUESTED BY 
THE USER, INCLUDING THE CROSS REFERENCE SUMMARY. IT THEN CLOSES 
THE MAP FILE AND SPOOLS IT (IF SO REQUESTED). 


o 
uw 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


ALL_GLOBAL SYMBOLS MUST HAVE BEEN PREVIOUSLY RELOCATED AND SENT 
TO THE CROSS REFERENCE PROGRAM FOR STORAGE. 


LS 


oO 
co 


{ IMPLICIT OUTPUTS: 

; THIS ROUTINE OUTPUTS THE GLOBAL SYMBOL SYNOPSES, BASED ON THE USER 
] 

' 


PAA AAAAAMUI EE BEEP 


WN OOONAUFS WN "OO OONOUEWN—"0O0 


SPECIFIED MAP QUALIFIERS. THESE INCLUDE THE GLOBAL SYNOPSIS ORDERED 
BY NAME AND BY VALUE AND THE CROSS REFERENCE SUMMARY. 


ROUTINE VALUE: 
NOVALUE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


SSLESFANLSS 


crfsubhdr2 : block Clen$c_mapline, byte], 
desc : ref block C, byte], 


bo pet ERP PRN RP RS A TS 8 


WI 2ODONOUEWNOORBNOULWN =O 


AA APO ROPROROPUROPOPONUNY 2 ee 


edt atadatadadatadbabiababmaiabablatiaiabadadadeidiatiatatabaadatatatabadlababababadaadababaabababababababababababababad 
DWDOODODOOOOOOOVOOOOVOOOVOOOOOOOO 


WLAN IPIPOPYIPIPYIPIPOPIPIPYIPINPYIPINODIR) a a at at Ot 9 I I I SS tS 
- 
Ts - - - err rs 


FREER REPRE ERR ERR EEE PEEP EEE EER PEEP PEPE P PEE 


errorcode ' LOCAL ERROR CODE 
Linespagel, i NUMBER OF LINES ON FIRST PAGE 
string_ptr, ' PTR TO SUBHDR FAO STRING 
3 crefmode; ' NUMBER OF SYMBOLS ACROSS PAGE IS DEFINED 
¢ ' BY THE MODE 
4 psectnameline = 0; ' ENSURE NO PSECT SUMMARY PRINTED 
33 44 if not .lnk$gl_ctlmsk Clnk$v_brief] ! MORE THAN A BRIEF MAP? 
en 
40 398 begin ' YES, THEN PROCEED, ELSE SKIP 
I 99% subhdline = 0; i NO $UB HEADER FOR NEW PAGE YET 


NONE 
begin 
local 
crfsubhdri : block fLengc_mapt ine. byte], 
| 


N 4 
LNNK_MAPROUT INES ep-19 :0 AX-11 Bliss-32 V4.0-7 Pa 2 LNI 
v04=000 122868 Sep-1 1386 99: 933 3 LINKER. SRCILNKMAPRTN. 3 2:1 9 195 vo 
t83 1396 oF, inkSol_ctineh Cink$v_long) ! IF A FULL MAP 
ret 1338 “ not newpage () then return ) ! GIVE UP IF FAIL TO GET NEW PAGE 
4c? 444 (if not newline () then return ); ! OR NEW LINE IF NOT FULL MAP 
rn Oe¢ if .ink$gl_ctlmsk Clnk$v_cros] ! PICK THE SYMBOL TABLE HEADING 
450 0 then 
: 1 44 begin 
it 097 if not mapbox (symbolcref) then return; ! FOR CROSS REFERENCED OR NOT 
5 & } 
2$ BoP CREATE THE FAO CONTROL STRINGS FOR CREF SUB HEADER 
58 ; crfsubhdr dsc $v. Length] = len$c <map| ine: 
59 crfsubhdr Cdsc$a_pointer] = crfsubhdri; 
60 sys$fao (fao_crefsubhd, crteyener erfsubhdr, -lnk$gl_maxsymsz + 1, crfsubhdl, 
61 .lnk$gl_maxmodsz + 6, A the d2); 
o¢ desc = crfsubhdr + dsc C n; 
6 desc Cdsc$w anength) = lense -napl ine; 
ee desc Cdsc$a_pointer) = crfsubhdr 


syedtes (fad crefsubhd, desc, .desc, -lnk$gl_maxsymsz + 1, crfsubhd3, .lnk$gl_maxmodsz + 6, 
crfsu 


sys$fao (fao ~erel, fao_symdesc, fao_symdesc, .lnk$gl_maxsymsz); 
sys$fao (fao_ sreie fao_ nodesc. fao_modesc, .lnk$gl_maxmodsz + 1); 


symbol field BSH. enaxtng) | nese maxsyms2z; 
referencer ( b_maxlng -lnk$g Bexmedsz * is 
ch$move AS hl fao _syndesc. Symbol field Cfld$b teodes 23 
ch$move (dsc$c_s_bln, fao_modesc, re erencer ee Ld$b_faodscJ); 
if not mapsubhdr (crfsubhdr) then return; 
oratands = crf$k_defs_refs; ! FULL CROSS REFERENCE 
en 
else 
begin 
if not mapbox (symbyname) then return; ! GIVE UP IF FAIL TO OUTPUT THE BOXED HEADING 
string_ptr = aan: ! ASSUME SHORT SYMBOLS 
desc ="sym$c_shortname; 


ae -lnk$gl_maxsymsz gtr sym$c_shortname 


OOOO OCOCOOCOOSCOOOCSOSCOOOCOoOOoOOOoOOCoOOoOO 
BH EAWAAAWI AI AIPRIPINONPINOPUDINIDY 2 9 OS SO 


“be in 
string. ptr = symlngsubhdr; 
desc = sym$c_maxing; 


end; 
ayssfee t¢ (fao_crel, fao_symdesc, fao ziyadese desc 
$move (dsc$c_s_bln, fao_symdesc, Symbolfield [fl déb_taodse)): 


C 
symbolfield CfldSb_maxing] = .desc; 
if not mapsubhdr (.string_ptr) then return; 
crefmode = crf$k_values; ! JUST WANT THE KEYS AND VALUES 


ERELRET 
MOON NE WN OOS NAW WN $9 OONAUN EW SO OONOUFSWWN—O 


a ee a a ee ee ee a a ed ed ad ed dd 
Se el et ek ek ak ta ek al Dek dk Dee Del Oe ad en dee tet ak ta et et eh et et et et et 


SSLSSLAN SSS VST RAV ASSSVSAFANASSSIF 
Pe ee oe oe oe oe ot oe atau) ot ot ot ot ot ot ot at ol | ot ot ot ot ot ot ot ot ot ot ot ot 


Be Se Se Se Ge Se Be Se Se Ge Se Fe Se Se Se Ge Fe Ge Fe Se Se Se Ge Fe Ge Fe Ge Se Ge Se Se Se FH Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Ss oe SF Se SH Se SH Ss Se 


RIPPIN ININONININININININININININPINIPININININININNNoNNNNy 


wm 


ooo 


— —————---—- 


if not Lnk$mapout (chardef_str C1], .chardef_str (0]) then return; 
if not (errorcode = $fao (abbrvtbli_str, outsize, outdes)) 
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: : 0} i end; 
; \ 4 5 Linespagel = .lnk$gb_linespp - .Linecnt; ! SET NUMBER OF LINES ON FIRST PAGE 
; 1504 ; 4 if not (errorcode = crf$out (Lnk$al_sytbl fmt, Len$c_mapline, ! CALL CRF TO DO THE WORK 
3 : 05 28 & a -linespagel, .lnk$gb_linespp - 6, .crefmode, crf$k_save)) 
3 en 
3 : oF 066 signal (Lin$_crferr, 0, .errorcode); 
: 1509 64 
$ } 19 o7 NOW FOR SYMBOLS BY VALUE IF REQUESTED 
; : \§ oes 7 «lnk$glctimsk Cink$v_long] ! WANT A LONG MAP? 
: en 
3 1514 067 4 begin ! YES, ADD THE VALUE CROSS REFERENCE 
3; 1515 068 4 eyeeree (fao_crel, fao_symdesc, feo. syadesc. Brit! mesexeeg?s 
3 1218 069 4 ch$move (dsc$c_s_bln, fao_symdesc, symbolfield Cf $B_faodsc]); 
: 151 070 4 symbol field ffTdSb_maxing] = .Lnk$gl maxsymszi 
; 1318 4 4 subhdline = 0; T NO SUBHEADING YET 
: 1399 O78 ? if not newpage () then return; ! GIVE UP IF NO NEW PAGE 
; Hi of? 2 if not mapbox (symbyvalue) then return; ! GIVE UP ON FAILURE TO OUTPUT THE BOX HEADING 
: i r O77 ? if not mapsubhdr (valsubhdr) then return; ! OR THE TABLE HEADING 
; 1386 Sop ? Linespagel = .lnk$gb_linespp - .linecnt; ! SET NUMBER OF LINES ON FIRST PAGE | 
: 1528 2081 ; if not (errorcode = crf$out (LnkSal_valctltb, ! AND CALL CRF TO DO 
3: 1529 sone voris Pep °88. “ geepegel ' ITS THING 
; 1530 083 5 -lnk$gb_linespp - 3, crf$k_vals_refs, ! AND SAVE THE TABLE 
; 1531 084 5 crf$k_save)) 
3 15 ¢ 085 4 hen 
; 153 086 4 signal (lLin$_crferr, 0, .errorcode); 
g 1238 att 4 
He “ 
: 1337 94 7 .linecnt + 10 gtr .lnk$gb_linespp ! ENSURE ROOM FOR KEY TO SPECIAL CHARS LINE 
3 en 
: 1235 844 4 begin 
3 HF 9 Bez : Linecnt = .lnk$gb_linespp; ' FORCE A NEW PAGE 
: 1348 095 4 if not Lnk$mapout (outline, 0) then return; 
3 136 96 4 
3 1544 9 end; 
3 1545 098 
: 1368 644 incru i from 1 to 3 do 
: 1548 01 if not Lnk$mapout (outline, 0) ! SKIP 3 LINES 
3 136) 8 then 
3; 1550 return; 
3 132) 04 
. § 2 05 
: 132 
3: 1554 4 
3; 1555 ; 
3; 1556 


en 
faofail (.errorcode) 


ww 
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— 

LINKER. SRCJLNKMAPRTN.B32; 1 | 
; 1557 11 else 
: 1 sf 19 | 
: } 2B \1§ if not lnk$mapout (outline, .outsize) then return; | 
: 1561 114 incru i from 0 to 3 do 
:1 6¢ 115 4 in | 
: 156 116 4 
: 1298 af 4 ? 1 Mg (errorcode = $fao (abbrvtbl2_str, outsize, outdes, .str_pointer [.iJ)) | 
[1 119 4 faofail (.errorcode) 
ig fg oe 
3 1 &3 ; § ? if not Lnk$mapout (outline, .outsize) then return; 
: 1571 124 end; 
3 1326 125 : 
: 122? : 8 4 7 not (errorcode = $fao (abbrvtbli_str, outsize, outdes)) 
; en 
3; 1575 128 faofail (.errorcode) 
: 1278 129 else 
3; 157 130 
Be OY 
1380 138 end 
: 1286 3 5 return; 
; 158 136 «(1 end; 


OFFC 00000 ENTRY LNKSMAPSYMS , Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 1939 
5B 000000006 00 9€ 00002 MOVAB SYS$FAO, R11 : 
5a 00000000' EF 9E 00009 MOVAB  LNK$GL_MAXSYMSZ, R10 : 
59 90000000" EF 9E 0019 MOVAB FAO_CRE1, R : 
58 00000000" EF 9€ 0001 MOVAB FAOTSYMDESC, R8 : 
5E FEF cE 9E OO1E MOVAB -26%(SP), SP : 
28 AB 04 00 CLRL  PSECTNAMELINE : 1989 
01 000000006 00 01 } 00 é BBC #1, LNKSGL_CTLMSK+1, 1$ : 1991 
Es AB D4 F 1$: CLRL § SUBHDLINE > 1994 
09 000000006 £9 2 BLBC = LNKSGL_CTLMSK+1, 2$ : 1996 
00000000v_ EF Fe ; CALLS #0, NEQPAGE : 199 
00000000v_ EF F Oeg 38: CALLS #0, NEWLINE > 2000 
& . 49 3$: BLBC —E_—«aRO. ; 
000000006 6 4 TSTB —s LNKSGL_CTILMSK + 2002 
BLSS 4$ : 
OOA 1 BRw 7$ : 
FD28 F 7 4$: PUSHAB SYMBOLCREF > 2006 
00000000v 1 FB CALLS , Ox : 
1 0 i ss 5$: BLBS RO, 6$ : 
'f:) ag 8 8F 9B 6$: MOVZBW #132, CRFSUBHDR : 201) 
EC A FF7C }=6CD «(9E 00068 MOV CRFSUBHDR1, CRF SUBHDR+4 > 2012 


| 
if not Lnk$mapout (outline, .outsize) then return; 
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v06=000 13-88-1382 tHE LINKER. SRCILNKMAPRIN.B 2:1 ° 19 | 
AG Ad OF 00071 PUSHAB CRF SUBHD 3 2013 F 
7E 04 AA 0 gi 74 ADDL3 #6 LNKSELMAXHODSZ, -(SP) + 2014 ; 
FF7C f F 00079 PUSHAB CRF SUBHD + 2013 ; 
7E 6A 1 gi 7D ADDL3. #1, LNKSGL_MAXSYMSZ, -(SP) : ; 
E8 ABS SF 1 PUSHAB CRFSUBHDR ; : 
EB OA i PUSHAB CRFS : ; 
F AQ OF 7 PUSHAB FAO_CREFSUBHD 5 : 
$8 07 FB A CALLS 4&7, SYSSFA : ; 
é FO «AB OSE D VAB RE SUBHDRe DESC > 2015 ; 
66 84 8F 98 00091 MOVZ7BW #132, : 016 : 
04 Ab 6E 9E 00095 MOVAB CRFESUBHDR2, 4(DESC) : 201 3 
D8 AS OOF 0099 PUSHAB CRFSUBHD4 : 2018 ; 
7E 04 AA 08 4 9C ADDL3 #6, LNKSGL_MAXMODSZ, -(SP) ; : 
CO AS SF OO0AI PUSHAB CRFSUBH : ; 
7E 6A gi C1 000A4 ADDL3 #1, LNKSGL_MAXSYMSZ, -(SP) ; : 
6 DD OO0A8 PUSHL DESC : : 
56 DD OOOAA PUSHL DESC ; : 
FO Ad 9F OOOAC PUSHAB FAO_CREFSUBHD : i 
68 07 FB OOOAF CALLS #7, SYSSF : ; 
6A DD 00082 PUSHL LNKSGL_MAXSYMSZ ; 2020 : 
58 DD 000B4 PUSHL RB : : 
58 DD 0086 PUSHL R8 ; ; 
59 DD 0008 PUSHL 9 : ; 
6B 04 FB 000BA CALLS #4, SYSSFAO : ; 
7E 04 AA 01 C1 000BD ADDL3 #1, LNKSGL_MAXMODSZ, -(SP) > 2021 ; 
10 As OF 900¢2 PUSHAB FAO_MODESC : F 
10 A& OF O00C PUSHAB FAO-MODESC : : 
59 DD 000C8 PUSHL R9 ; : 
6B 04 FB OOOCA CALLS #4, SY : 3 
7F AB 6A 90 000CD OVB. = LNKSGL_MAXSYMSZ, SYMBOLFIELD+3 ; 2022 : 
0123 CB 04 AA 01 0001 ADDB3 #1, LNRSGL_MAXMODSZ, REFERENCER+3 : 202 : 
0080 ce 68 08 28 00008 MOVC3 #8, FAO_SYMDESC, SY LD+4 ; 024 : 
0124 ¢ 10 AB 08 28 S00DE MOVC3 #8. FAO-MODESC, REFERENCER+4 F 20 5 ; 
E8 AB 9F O00E PUSHAB CRFSUBHBR : 2027 F 
00000000V_ EF or FB OO0E8 CALLS #1, MAPSUBHDR : ; 
46 0 €9 OOOEF BLBC ' : F 
50 02 DO 000F MOVL #2. CREFMODE > 2029 : 
46 11 OOOF BRB 10$ > 2002 : 
FD14 C9 OF OOOF7 7$ PUSHAB SYMBYNAME > 2034 3 
00000000v ef o1 FB OOOF CALLS #1, MAPBOX : ; 
3 0 E9 010 BLBC —_«RO, : 3 
57 ooac C9 : 01 MOVAB SYMSUBHDR, STRING_PTR : 2036 : 
56 OF DO OO10A MOVL 15, DESC : 037 3 
OF 6A D} 4 CMPL LNKSGL_MAXSYMSZ, #15 : 2039 : 
; 11 BLEQ : : 
57 0140 ¢ 4 11 MOVAB SYMLNGSUBHDR, STRING_PTR : O42 : 
14 1F D0 0011 MOVL #31, DESC : 204 3 
DD OO11A 8S PUSHL DESC > 2046 : 
DD 0011C¢ PUSHL R : : 
DD 0011 PUSHL R : : 
DD 001 PUSHL R : ; 
4 FB 001 CALLS #4, SYSSFAO ; : 
0080 = ¢8 6 8 2 1 MOVCS #8. FAO SYMDESC, SYMBOLFIELD+4 > 2047 : 
7FOA 6 108 MOVB DESC, SYMBOLFIELD+3 > 2048 ; 
DD 0012F PUSHL STRING_PTR > 2050 ; 
00000000v EF gi FB 131 CALLS #1, MAPSUBHDR : : 
E 0 €9 00138 9$ BLBC = RO. «128 ; : 
| 
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50 ps 138 cLRL CREFMODE : 3052 ; 

56 FC AA 9400130 108: MOV ue LNK$GB_LINESPP, LINESPAGE1 + 205 F 

6 DC AB C2 00141 SUBL LINECNT, LINESPAGE1 : ; 

1 DD 148 PUSHL # + 2057 ; 

0 pp 14 PUSHL CREFMODE : 2058 : 

7E FC AA 9A 90149 HOV ZBL LNK$GB_LINESPP, =(SP) : ; 

6E : C2 0014 SUBL , : : 

bp 1 PUSHL LINESPAGE1 : : 

7E 84 F 9A 001 MOVZBL #132, =(SP) + 2057 ; 

8 AA 9F 001 USHAB LNK$AL_SYTBLFMT : ; 

000000006 99 FB 001 CALLS #6, OUT : ; 

D 160 MOVL RO, ERRORCOD : ; 

11 E8 0016 BLBS § ERRORCODE, 11$ : ; 

7 DD 0166 PUSHL ERRORCODE > 2060 : 

E D4 0016 CLRL. = : ; 

000000006 8F DD O1GA PUSHL #LINS$_CRFERR : ; 

000000006 90 3 FB 901 : CALLS #3, LIBSSIGNAL : : 

000000006 00 £9 00177 118:  BLBC LNKSGL_CTLMSK+1, 13$ + 2065 : 

A DD 0017E PUSHL LNKSGL-MAXSYMSZ + 2068 : 

8 DD 9180 PUSHL R : ; 

DD 0182 PUSHL R 7 : : 

59 DD 001 PUSHL : ; 

68 4 FB 0186 CALLS #4, SYSSFAO ~ : ; 

0080 8 68 8 2 00189 MOVC3 #8. FAO SYMDESC, SYMBOLFIELD+4 > 2069 : 

7F) so 6A 90 0018F MOVB LNKSGL_MAXSYMSZ, SYMBOLFIELD+3 ; 2070 3 

E4 AB D4 00193 CLRL § SUBHDLINE : 2071 ; 

00000000v EE 90 FB 0196 CALLS #0, NEWPAGE + 2073 ; 

FD43. 9 fF 01A0 PUSHAB SYMBYVALUE : 2075 : 

00000000v cf 1 FB OO1A4 CALLS #1, MAPBOX : : 

A 0 £9 O01AB BLBC ~—_ RO, «178 : ; 

0178 «#69 OF QOIAE PUSHAB VALSUBHDR : 2077 ; 

00000000v_ EF 1 FB 018 CALLS #1, MAPSUBHDR : ; 

6C 0 . 00189 12$:  BLBC ; : : 

56 FC AA 9A 001BC HOV ZBL LNK$GB_LINESPP, LINESPAGE1 : 2079 ; 

56 DC AB C2 001C0 SUBL2._LINECNT, LINESPAGE1 : ; 

01 DD 001C4 PUSHL #1 + 2081 F 

01 pp 001¢6 PUSHL #1 : ; 

7E FC AA 9A 00168 NOV ZBL LNKS$GB_LINESPP, -(SP) > 2083 ; 

6E 3 ¢2 001CC SUBL , (SP) : : 

i pp O1CF PUSHL LINESPAGE1 : 2082 ; 

7E 84 BF 9A 00101 MOVZBL #132, - : 2081 ; 

68 AA 9F 00105 PUSHAB LNKS$AL_VALCTLTB : : 

000000006 99 FB 00108 CALLS #6, CRFSOUT | : F 

DO 001DF MOVL R ERRORCODE : : 

11 e 1E BLBS ERRORCODE, 13$ : : 

7 DD OO1E PUSHL ERRORCODE > 2086 : 

E D4 OO1E CLRL. = = (SP) : F 

000000006 8F DD 001E9 /PUSHL #LINS_CRFERR : : 

000000006 0 3 FB 1EF CALLS #3, LIBSSIGNAL : ; 

0 DC OA A C1 OO1F6 138:  ADDL3 #16, LINE CNT RO : 2090 : 

50 FC 0 09 FD FB CMPLV #0, #8, LNKSGB_LINESPP, RO : : 

pc oA FC AA OA ; MOVZBL LNKS$GB_LINESPP, LINECNT : 3093 ; 

7 p4 CLRL = (SP) : 209 ; 

FF 24 f F A PUSHAB OUTLINE : ; 

00000000v_ EF FB E CALLS #2, LNKSMAPOUT : ; 
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£ 15 14$:  BLBC RO, 198 ; : 
35 at 4 18 15$: MOVL a I : 2099 : 
ps 18 16$: cLRL -(§P) + 2101 ; 
FF 26 F 19 PUSHAB OUTLINE : ; 
00000000v FF FB CALLS #2, LNKSMAPOUT : ; 
A E 8 17$ BLBC ~=«-_«aRO,.- 038 : ; 
b9 B INCL : : 
03 D CMPL #3 : ; 
€9 18 BLEGQU $ : ; 
7E FBD1 C¢9 9A MOVZBL CHARDEF_STR, =(SP) + 2105 ; 
FBD2 «C9 «(OF PUSHAB CHARDEF~STR#1 : ; 
00000000v Ff FB CALLS 4% LWESRAPOUT : 3 
0 . 4 BLBC =—_—«aRO,.- O38 : : 
as AS SF 0024 PUSHAB OUTDES + 2107 ; 
; AB 9F 0024 PUSHAB OUTSIZE : ; 
F58C 6C9.soOF «00248 PUSHAB ABBRVTBL 1 STR : ; 
68 3 FB O024F CALLS #3, SYSS$FAO : ; 
: DO 0025 MOVL RO ERRORCODE : : 
09 E 6 5 BLBS _ ERRORCODE, 18$ ; : 
7 DD 00258 PUSHL ERRORCODE + 2109 ; 
F658 =F 01 FB O025A CALLS #1, FAOFAIL : ; 
12 11 0025F BRB 208 : ; 
7E 80 A 3¢ 61 18$:  MOVZWL OUTSIZE, -(SP) + 2112 ; 
FF24 CB OF 00265 PUSHAB QUTLIN : : 
00000000V EF 9 FB 0 69 CALLS #2, LNKSMAPOUT : ; 
66 £9 00270 19$:  BLBC RO. 26$ : : 
52 04 00 7 08: CLRL + 2114 3 
FC68 C942 DD 00275 21$:  -PUSHL STR POINTERCI) + 2117 : 
AB AB OF OO27A PUSHAB OUTDES 3 3 
BO A8 9F 0027D PUSHAB OUTSIZ : : 
FSAO C9 9F 00280 PUSHAB ABBRVTBL2_STR : : 
e 04 FB 00 84 CALLS #4, SY ; : 
7 0 09 0287 MOVL RO, ERRORCOD ; : 
09 57 00 BA BLBS § ERRORCODE, 22$ ; : 
57 DD 00 PUSHL RORC 3 2119 F 
F623—sCF 01 FB 0028F CALLS #1, FAOFAIL : : 
12 11 0 94 BRB : ; 
7E 80 AS 3C 00296 22$: MOVZWL OUTSIZE, -(SP) > 2122 : 
FF24 CB 9F OO29A PUSHAB OUTLIN : : 
00600000 ef g FB 0 H CALLS #2, LNKSMAPOUT : : 
1 E9 002A 338: BLBC = RO, 268 ; : 
52 D6 002AB 24$: INCL + 2114 : 
03 52 D1 OOOAA CMPL } #3 : 3 
C6 1B OO2AD BLEGQU 21$ ; ; 
AS AB 9F OOOAF PUSHAB OUTDES + 2126 F 
B0 AS 9F é PUSHAB OUTSIZE : 3 
F58C 46C9soOOF «0028 PUSHAB ABBRVTBL | STR ; : 
6 ; 89 CALLS #3, SYSSFAO ; : 
5 D BC VL —RO ERRORCODE ; : 
08 E BF BLBS ERRORCODE, 25$ ; : 
7 DD 002C PUSHL ERRORCODE : 2128 : 
FSEE CF 1 FB ch CALLS #1, FAOFAIL ; : 
7E g0 A ae CA 25$:  MOVZWL OUTSIZE, -(SP) > 2131 ; 
FF24 «6 CBO «ODOC PUSHAB OUTLINE ; ; 
00000000V_ EF 0 Fe D CALLS #2, LNKSMAPOUT : : 
0 09 26$: RET > 2136 ; 
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; Routine Size: 730 bytes, Routine Base: SCODES + 0941 
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SPOAAOOOOAOAAOS 
PII at at et 
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Mewn—o 
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PAAAAAAAAAA AAO 
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1 aay = yea Lnk$mapiscts : novalue = ! ROUTINE TO OUTPUT IMAGE SECTION INFORMATION 


—o 


] 
| 
| 
14 | 
! FUNCTIONAL DESCRIPTION: 
THIS ROUTINE OUTPUTS THE IMAGE SECTION SYNOPSIS. | 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


THE IMAGE SECTION DESCRIPTOR LIST = HEAD IS LNKSGL_ISDLST 
AND THE IMAGE FILE DESCRI 


IMPLICIT OUTPUTS: 
THIS ROUTINE OUTPUTS THE IMAGE SECTION SYNOPSIS. 
i ROUTINE VALUE: 


0 
PTOR BLOCK. 


' 

NOVALUE 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

NONE 

ice 

loc 

fao_errcode, ' FAO ERROR CODE 
match str, | POINTER TO MATCH CONTROL STRING 
fao_cfl_str, | POINTER TO FAO CONTROL STRING 
nextisd: ref block C byted ' ISECT DESCRIPTOR BLOC 
cluster : ref vector C, byted, i ADDRESS OF CLUSTER NAME STRING 
proprefix, ' ADDRESS OF ‘'P-"' OR BLAN 
relsfx, | ADDRESS OF ‘‘-R"’ OR BLANKS 
diskvbn, i DISK VBN OF ISECTION 
protect, ' ADDRESS OF PROTECTION STRING 
otheratribs!, i FOR ADDITIONAL ATTRIBUTES 
otheratribs2, 
baseva; !' BASE VIRTUAL PAGE NUMBER 

' 

bind 

imgaux fb = inkSol_imgf il C fdb$t_auxfnb) ! REFERENCE THE IMAGE FILE'S AUXILIARY 
: Block Cnam$c_bln, byte); ! FILENAME BLOCK 


' 
i RE-SET UP THE DESCRIPTOR OF THE IMAGE FILE (IF ANY), BECAUSE 
; IT IS PROBABLY CREATED NOW. 
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if .UnkSgl_imgfil ne ! PROVIDED AN 
and .ink$gi_c 


196 5° 
1 MAGE WAS SPECIFIED 
1 ATED 
1 en F 
egin 
ielootitenene £0) = .imgauxfnb (nam$b_rsl); ! SET LENGTH OF RESULTANT FILE NAME 
¢ smagettLonene = .imgauxfnb [nam$l"rsal; ! AND POINTER TO IT 
5 if not .lnk$gl_ctlmsk ClnkSy_ long] ! If A_LONG MAP 
4 
4 
4 
& 
4 
4 


0 I 
tlmsk Cink$v_image] ! AND SUCCESSFULLY CRE 


Wi SSSSSSS 
WN LOOONON RA 


me -lnk$gwinisects eql ! AND SOME IMAGE SECTIONS 
return; NO, RETURN 
RESET HEADER LINE 


subhdline = 0; 
iz not newpage () GIVE UP IF FAIL TO GET NEW PAGE 
en 


PAAAAAOO 
wee? 


OONOwW 


return; 


We not mapbox (imagesections) AND IF THE BOX HEADING FAILS 
en 


return; 


af not mapsubhdr (isdsubhdr, isdtxt) DITTO FOR ISECTIION SUBHEADER 
n 
return; 
ink$gl_curclu = Lnk$gl_clulst; START AT TOP OF CLUSTER LIST 
wile (ink$gl_curclu = .ink$gl_curclu Celu$l_nxtclu]) neq 0 ! GET NEXT CLUSTER DESCRIPTOR 
0 
begin 
if not newline () ! OUTPUT A BLANK LINE 
then 
return; 
if not o\nkSol curclu Cclu$v_based] ! IF CLUSTER IS NOT BASED 
and (.\ink$gl cure Ly CcluSv_shrimg] ! AND IS FROM A SHAREABLE IMAGE 
or .ink$gl_cftlmsk Clnk$v_sfirJ) ! OR WE ARE CREATING A SHAREABLE IMAGE 
en 
relsfx = hyphen_r ! THEN FLAG THAT IN MAP 
28 
relsfx = blanks; OTHERWISE USE BLANKS 


cluster = Lnk$gl_curclu pclusp nealing): ' SET ITS NAME POINTER 


JavsteNsseaeereeeS 


AAI ROPONOPOPONUNOPOND 3 OO 


FUN (OC OCONAVNE WIN S$ OVOONOU SW —O0O 


th 


nextisd = Ink$gl-curclu Cclu$l“fstis GO DOWN LIST OF DESCRIPTORS 
while (nextisd = .nextisd Cisl$l_nxtisd]) neq 0 ! TILL ZERO TERMINATED END 
° 
begin 


= 


bind 
isectdesc = nextisd Cisl$t_hdrisd] : block C, byte]; ! POINT TO THE HEADER PART 


me a a a ed a ik a dn 9 2 — 2 a 9 9 a ts — 4 tt 


See SS PSS SSSSSESFERES 


POPSPIMPININONONINIPININGNIPINPINY 
Dt ak at te tb ob eh eh eel 
MEW —OOOnOu 


_ 
> 


é 
g 


-isectdesc Cisd y-pagent] neq 0 ! IF NON-NULL ISECT 
isd$b_ 


or .isectdesc type] eql isdSk_usrstack ! OR THE STACK ISECT 


if 
then 
begin 
fao_ctl_str = ch$ptr (isectcntrl str. 0); ! ASSUME ISECT IS NOT GLOBAL 
baseva = .isectdesc Cisd$v_vpg]°9; ! GET BASE VIRTUAL ADDRESS 
proprefix = blanks; ! ASSUME ISECT NOT PROTECTED 
af» tesctéens Cisd$v_protect] ! IF IT IS PROTECTED 
proprefix = p_hyphen; ! THEN TELL THAT 


7s secctdese Cisd$v_dzro] ! IF A DEMAND ZERO IMAGE SECTION 


SELES 
PEPE 


SN NA AAAO 


begin ! THERE IS NO DISK SPACE ALLOCATED 
diskvbn = 0; !' $0 ZERO THE VBN 
otheratribsi = demandzero; |! AND SET THE DESCRIPTIONSTRING 
en 

else 


aS ss 


begin 

diskvbn = .isectdesc Cisd$l_vbnJ;  ! GET BASE VBN ON DISK 
echeretrseet = blanks; 

end; 


, 
oP = Sneeteaes Cisd$v_wrt] ! IF THE SECTION IS WRITABLE 
protect = readwrite ! THEN SAY SO 
** protect = readonly; ! OTHERWISE TELL THEM READ ONLY 
if .nextisd egl .ink$gl_fixisd ! IF IT'S THE FIXUP SECTION 


or (.nextisd eql .ink$gl_curclu Cclu$l_fixis 
! OR THE FIXUP SECTION IN ANOTHER IMAGE 
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then 
‘ otheratribs2 = fixupsection 
se 
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34 4 -isectdesc Cisd$v_crf] ! IF COPY ON REFERENCE 
en 
9 91 otheratribs2 = (if not .nextisd Cisl$v copret? ! THEN SAY COPY ON REF 
re , then copyonref else addrdata) ! UNLESS IT HAS .ADDRESS DATA IN IT 
4e 

tg Be otheratribs2 = blanks; ! ELSE SAY NOTHING 

44 26 if .isectdesc Cisd$v_gbl] 

45 9 then 

“8 44 begin 

4 fao_ctl_str = ch$ptr Cob} is cntrl ser. 0); ! USE_GLOBAL ISECT FAO CONTROL STRING 

:8 's4 match_str = (selectone .isectdesc Cisd$v_matchctl] of 

e 
29 Be isd$k_matall) : alltime; ! SELECT MATCH = ALWAYS 
1 isdSk_matnev] : never; : SELECT MATCH = NEVER 
26 isd$k_matequ] : equal; ! SELECT MATCH = EQUAL | 
2 5 19gSk patiog : lssequal; ' SELECT MATCH = LESS/EQUAL 
& otherwise) : blanks; ! NO MATCH SET 

55 tes); 

56 8 end; | 
| 


if not Lnk$mapout (outline, 0) then return; 

end; 
incru i from 1 to 3 do 

of not Lnk$mapout (outline, 0) ! SKIP 3 LINES 
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y00=000 1e8Sb=13ke 99:20:31 ETE SRESLMRMAPRIN B82: 1 9405 v 
3 3 $ 
3 Hs 1 é begin : 
ise i - jid = .(isectd ! d$l_ident])<24, 8 ' GLOB SEC MAJOR ID ; 
3 sma = sectdesc Cis en o8,. Os. 3 
; 1786 1 Seainid = i(isectdesc Lisd$L st-igent4} > 24 § ' GLOB SEC MINOR ID : 
: 1764 1 if .cluster C0] gtru 16 ! IF CLUSTER NAME IS LONG 3 
: 1765 1 then : 
; 1708 : begin : 
: 17 if not “ree errcode = sys$fao (ob md. cntrl_sti, ! PUT CLUSTER NAME ON SEPARATE LINE ; 
: 178 ais utSize, outdes, .cluster ; 
: 177 : ? "taotail (. fao_errcode) ; 
: ith8 ¢ 5 me 
3 Ha § 4 if not Lnk$mapout (outline, .outsize) then return; ; 
; 1276 8 7 cluster = blanks; ! THEN SET CLUSTER NAME TO BLANKS : 
3 a , 6 end; : 
; 1779 1 : if not (fao_errcode = sys$fao (. fao ctl_str, outst ze. outdes, .cluster, F 
3 17 ; 7 ' 60 FORMAT THE LINE 3 
; 1781 7 -isectdesc Cisd$b_type]. .isectdesc Cisd$w _pagcnt], .proprefix, .baseva, .relsfx, : 
3; 17 ¢ 7 -diskvbn, ,isectdesc Cisd$b_pfc], .protect, .otheratribs!, .otheratribse, F 
3 1 5 i a isectdesc t1eShtcotnends ematch_str, gsmajid, gsmini F 
3 en 3 
3 1788 ° : faofail (.fao_errcode) ! AND REPORT ANY ERROR 3 
3 se 3 
3 1789 3 6 3 
3; 1788 40 6 if not Lnk$mapout (outline, .outsize) ' OUTPUT THE LINE PF 
: 1789 41 6 then 3 
3 1790 2g 6 return; ! AND GIVE UP ON FAILURE : 
: 1798 4a 1 end: : 
3; 179 4 cluster = blanks; ! SET CLUSTER NAME TO BLANKS FOR REST OF ISECTS 3 
: 1794 4 end; 3 
3; 1795 end; 3 
ig Repo 7 
; 1798 50g | PRINT KEY TO SPECIAL CHARACTERS ; 
: 1 . om 
3 : ; 7 -linecnt + 8 gtr .lnk$gb_linespp ' ENSURE ROOM FOR KEY TO SPECIAL CHARS LINE 
3 en 
me | 5 begin 
3 : 3 Linecnt = .lnk$gb_linespp; ! FORCE A NEW PAGE 
51 5 
3 1 5 
3 1 
3 1 
3 1 
3 1 
3 1 
s 1 
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return; 
if not Lnk$mapout (chardef_str C1], .chardef_str (0]) then return; 
if not (fao_errcode = $fao (abbrvtbli_str, outsize, outdes)) 
faofail (.fao_errcode) 
lse 


if not Lnk$mapout (outline, .outsize) then return; 
incru i from 0 to 1 do 
begin 


if not (fao_errcode = $fao (abbrvtbl2_str, outsize, outdes, .istr_pointer [.iJ)) 
en 
faofail (.fao_errcode) 
lse 


if not Lnk$Smapout (outline, .outsize) then return; 
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end; 
; if not (fao_errcode = $fao (abbrvtbli_str, outsize, outdes)) 
en 
; 1 faofail (.fao_errcode) 
§ else 
4 if not Lnk$mapout (outline, .outsize) then return; 
396 return; ! AND ALL DONE 
2397 end; 
SE 0c ¢2 0000 SUBL2 #12. : 
31 000000006 00 D0 0000 MOVL LNKSGL_IMGFIL. R1 > 2189 
0 26 «Al 9E 0000 MOVAB 8(R1)> RO 3 
51 001 STL el 3 2197 
7 Bot BEQL 1$ 3 
10 socesenee 0? 3 1 BLBC Noth ee tts 1$ ; 2198 
00000000° EF 03 AO 9A 0018 MOVZBL (RO), IMAGEF [LENAME > 2201 
00000000° fr 88 AO 4 0 VL 4(RO), IMAGEF ILENAME+4 : 0 
1 000000006 00 yi 028 1$ BLas LNKSGL_CTLMSK+1, 2$ : 0 
000000006 00 83 2$: TSTW LNKSGU_NISECTS > 2206 
1 BNEQ $ 3 
04 RET : 
00000000' EF 04 3$: CLRL SUBHDL INE ; $319 
00000000V_ EF FB 4 CALLS #0, NEWPAGE 3 221 
4B 3 4 BLBC 3 
00000000' Ff F 4c PUSHAB IMAGESECTIONS > 2216 
00000000V_ EF 1 FB 5 CALLS #1, MAPBOX F 


a 5 
LINK _MAPROUTINES -Sep-1984 5: AX-11 Bliss-32 V4.0-7 Page 74 
v04=000 ee tiae ts rik) eat mm wt tt Ce eS Oe 9 44) 
3B 50 €9 59 BLBC —S-—«aRO,,_ 68 ; 
99000000" EF OF PUSHAB ISOTXT + 2220 
' EF OF PUSHAB ISDSUBHDR ; 
00000000v f re é CALLS ‘ : WAPSUBH DR : 
common games 3 Fe Bie us, fut? ERE EuET. pce 286 
000000006 D mov (RO), CNKSGL €uRCLU : 
O1F ; D BRW We : 
00000000v EF Q Fe 5$: CALLS #0, + NEWLINE + 2230 
' yan ttt BLes : 
50 000000996 0 i 09 7$: HOV LNKSGL CY CURCLU, RO + 2234 
08 58 i 0 EO O00A6 BBS #2, 88(R 5, 8$ : 3235 
09 000000006 90 al OAR BBC #2. LNKSGL_ CTLISK, 9$ : ; 36 
B 00000000° ai c 0B3 8$ MOVAB HYPHEN_R, RELS : 2238 
7 11 OOOBA BRB 0S : 
5B 00000000" EF 9E O00BC 9$: MOVAB BLANKS RELSFX + 2240 
54 AO 9E 99¢ 108: VAB 92(RO). CLUSTER : 3249 
33 18 a0 9—€ 000C MOVAB 24(RO). NEXTISD 3 226 
5 63 00 000CB 11$: MGVL (NEXTISD), NEXTISD + 2245 
aD 1 O0cE BEQL 4$ ; 
52 18 A3 9E 0000 MOVAB 34 (NEX TISD), R2 ; 3250 
02 Ag B 99004 TSTW (R2) : 2252 
07 12 00007 BNEQ 12$ : 
FD soBF 0B A2 91 00009 CMPB =s-:-‘11(R2), #253 : 2253 
EB 12 OOODE BNEQ 11$ : 
04 AE 00000000" EF 9E O0EO 12$:  MOVAB. ISECT point sir. af0- CTL_STR : 3256 
50 04 A2 1 00 EF 000E EXTZV #0, #23, 4 4(R2) : 2257 
08 AE 50 09 78 OEE ASHL #9. R ; 
6E 00000000' EF 9E 000F MOVAB BLANKS, OR OENEF IX : 2258 
51 08 Ag 9E OOOFA MOVAB 8(R2), R1 : 2260 
07 61 1 gl OOrE C #18, (R1), 13$ ; 
6E 00000000' EF SE 0010 MOVAB P_HY PHEN, PROPREF IX > 2262 
0B 61 2 €1 00109 13s: C #2, (RI). 14$ + 2264 
A D4 001 CLRL = DISKV ; 3267 
58 00000000° ai Hf 0010F MOVAB ged OTHERATRIBS1 + 2268 
: 1 116 BRB 15$ + 2264 
SA Oc A2 00 00118 14$:  MOVL 12(R2), DISKVBN : : i 
58 00000000° ai 9 0011 MOVAB BLANKS; OTE KATRIBS! > 227 
09 61 3 al 123 15$: BBC 16$ : 276 
59 00000000' Ff oF HOVAB Redoute, PROTECT : 2278 
59 00000000° EF H: 1 168: MOVAB READONLY, PROTECT : 3280 
000000006 00 : : 17$: CPL NEXTISD, LNKSGL_FIXISD ; 2282 
50 000000006 9 3 146 MOVL - LNK$GL_CURCLU : 2283 
44 AO ; p} 147 cmPL NEXTISD, 6 rs RO ; 
56 00000000° i H 140 18$: MOVAB | oiger OTHERATRIBS2 ; 2286 
16 1 €1 00156 19$: BBC 21 : 3289 
9 14 A3 8 15A BLBS 20tNENT| 1805 20$ > 2291 
6 00000000' Ff f 1 7 MOVAB COpVONREF  sTAERATRIBS2 ; 
0 11 0016 BRB 22$ ; 
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v04=000 13-808- 1382 90:03:38 LINKER. SRCJLNKMAPRTN.B32; 1 9° 44) 
56 00000000' FF 9 167 208:  MOVAB ADDRDATA, OTHERATRIBS2 : 
7 11 001 BRB 22$ : 
56 00000000' FF 3 1 318: MOVAB BLANKS QTHERATRIBS2 + 2296 
iE 1 Vf 2$:  BLBC  (R1), 27 : %6 
Q4 AE 00000000" EF 17A MOVAB G81 18_CNTRL STR, FAO_CTL_STR : 
0 8F j g1T8 (R1), #112 : 2302 
V é HL $ 
55 00000000' f 9 8 BOVAB ALLTIME, MATCH_STR : 
03 61 03 4 FD 1 238: CMPZV #4, #3, (RI), #3 + 2303 
55 00000000' F H 198 MOVAB NEVER, MATCH_STR : 
01 61 03 4 FD Oia 24$:  CMPZV #4, #3, (R1), #1 + 2304 
2 14g BNEQ ; 
55 00000000° FF H O1A8 MOVAB QUAL, MATCH_STR : 
02 61 03 04 ED thy 25$:  CMPZV #4, #3, (R1), #2 + 2305 
9 12 0186 BNEQ : 
55 00000000' EF H 018 MOVAB LSSEQUAL, MATCH_STR : 
7 11 901BF BRB 7$ : 
55 00000000" EF 4: orc! 68: MOVAB BLANKS, MATCH_STR : 3306 
10 64 91 001C8 27$: CMPB (CLUSTER), #16 : 2316 
48 18 001¢B BLEQU 30S : 
54 0D 901¢D PUSHL CLUSTER > 2321 
00000000' EF 9F OOICF PUSHAB OUTDES : 2320 
00000000" EF 9F 00105 PUSHAB OUTSIZE ; 
00000000° EF 9F 00108 PUSHAB OBJMD_CNTRL_ST1 ; 
000000006 00 4 FB OO1E1 CALLS #4, SYSS$FAO ; 
57 50 DO O01E8 MOVL RO, FAO ERRCODE ; 
09 57 €8 OO1EB BLBS FAO_ERRTODE, 28$ : 
57 DD OO1E PUSHL FAO ERRCODE : 2323 
F3E8 CF 01 FB OOTF CALLS #1, FAOFAIL ; 
17 11 OO1F BRB 29 F 
7E 00000000' EF 3C OO1F7 28%: | MOVZWL OUTSIZE, -<(SP) : 2326 
00000000" EF 9F OOTFE PUSHAB OUTLIN F 
00000000V EF 2 FB 00204 CALLS #2, LNKSMAPOUT F 
D 34 0208 BLBC RO, 32$ ; 
4 00000000' EF 9SE 00 Of 298: MOVAB BB Anis CLUSTER : 3328 
7E 10 A2 18 6 gf 6 15 30$: EXTZV #0, #24, 16(R2), -(SP) + 2335 
7E 13 A2 9A 0021B MOVZBL 19(R2), =(SP) 3 
55 DD O021F PUSHL MATCH STR : 
14 A2 9F 00221 PUSHAB 20(R2) ; 
3 DD 6 4 PUSHL OTHERATRIBS2 : 
DD 6 PUSHL OTHERATRIBS1 : 
59 DD 00 USHL PROTECT ; 
7E 07 A2 9A OO022A MOVZBL 7(R2), =(SP) ; 
2A DD 00 PUSHL DISKVBN : 
B DD PUSHL RELSFX ; 
30 AE OD PUSHL BASEVA ; 
C AE DD PUSHL PROPREFIX : 
7E 2 Ae 3C MOVZW (Re) -(SP) ; 
7E A2 OA MOVZBL 11(R25, -<(SP) : 
54 DD 0024 PUSHL CLUSTER ; 
9000000 ' EF 9F 0024 PUSHAB OUTDES : 2331 
0000000' EF 9F 0024 PUSHAB OUTSIZE ; 
48 AE DD 0024E PUSHL FAO_CTL_STR > 2335 


6 - 4.0-74 Page 76 
- -1 4 :05: AXx-11 Blis 32 V4. . (14) 
ue suprovt es ACHSSOHs QQME:HEHDUNPUAEC REN? 
woewen YSSFAO 
000000006 99 F } GoLtS RA. ge ERRCODE ; 
4 é LBS  FAO_ERRTODE, 318 9337 
: if cuits | afO-FAGFat 3 
CF f 
<a 7 i $$ : BV dtsize. =(SP) ue 
7 $8p00000" EF oF OOSeE So poeTinh SUTSTME ; 
a0900000" Fe 005% CALLS We. |NKSMAPOUT 
sae eA : 5 £8 Fe 388; ROVAB GLANKS® CLUSTER 3343 
pene reds i , hs i LINECNT, RO : 8383 
© 0000000" 2? 00000000" FF 08 f 88 348: a 1, Wb. LNKSGB_LINESPP, RO = 
50 00000000" 1D 99 T i 
: NKSGB_LINESPP, LINECN 
00000000" EF 00000000" EF oe 6 te tne =(SP) : ; $338 
000000007 ff RR ER BREA EARLE! BE ei smarour fess 
L ’ : 
85 01 50 3 BB 353: MOL #1 : 2364 
FS Sige eet OUTLINE ; 
, 00000000" FF oF p¢80 CALLS #3. (AKSMAPOUT : 
ooo EF Be FB Meets BLEC RO, 398 
3g D6 008CD ae ae : 
es e? tp 00 D2 MOV IBL Sis STR, =(SP) ; 2368 
7E 00000000' EF 9A 0020 RDEF STR: 
oo000000' EF PE poses CALLS ie. PAKSRAPOUT : 
00000000v EF ‘ e9 O2EB 378: BLBC ROL 398 : 2370 
90000000' EF 9 O0ZER ee is 
90000000' EF 9F O02FI PUSHAB ABBRVIBL1. STR 
00000000" EF 9F Oder? CALS. aee SVSSFRO 
arene Gf sot He Fao Enneone Bhs re 
wad 37 BD O030A PUSHL PAOLERRCODE & 
Face CF oy $F boat BRe. 408 : 2375 
Goooo000" EF 9F GOsIA CALLS #3. LAKSMAPOUT ; 
00000000V FF £8 00857 30s: BLBC’ «ROL O38 : 3377 
45 D4 003A 408: CLARE I att) ; 2380 
a : 
SSS ff : PUSHAB OUTSIZE | 
0000000: £ PB 0085 CALLS, ae, SYSSFRO 
000000006 99 D ac MOVL RO, FAO ERRCODE : 
BS  FAO_ERRCODE, 42$ : 2382 
09 i GF BL - E ; 
CPR ise Fue AO RRHE : 
F284 CF a : age RAS er ; 2385 


LNK_MAPROUTINES 1b-5e Sep-1 :0 AX-11 B sare v4.0- Page 77 
v04=000 eae PARP tS ma ST eS TET Ce 9 14) 
00000000" EF 9F PUSHAB OUTLINE : 
00000000V EF 4 § CALLS We. ree 3 
42 E F 43$:  BLBC ’ 46$ : 
Dg 44$: INCL + 2377 
01 D 7 CMPL sod, #1 : 
83 1B f BLEGU $ : 
00 900 ’ EF OF 9 PUSHAB OUTDES + 2389 
' EF OF 2 7F PUSHAB OUTSIZE : 
0000000" €F 9F 00385 PUSHAB ABBRYTBL | STR : 
000000006 99 F CALLS #3, SYSSFAO : 
0 OVL RO, FAO epee t! 3 
08 E 9 LBS  FAO_ERRTODE, 4 ; 
7 DD 0039 PUSHL  FAOTERRCODE ; 
F23E CF 01 fe 8 an caus #1, FAOFAIL g 
7E 00000000' EF ac 00 AQ 45$ MOVZWL OUTSIZE, -(SP) : 
00000000' EF F OO3A PUSHAB out N : 
00000000V EF 2 FB OO3AD CALLS #2, LNKSMAPOUT : 
04 00384 46$: RET 3 


2391 
2394 
2397 
; Routine Size: 949 bytes, Routine Base: SCODES + 0C1B 
; 1846 2398 1 
| 


SE 
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v04=000 -Sep-1 LINKER. SRCJLNKMAPRTN. 8 2;1 
: 1 $ 399 1 global routine |nk$mapstats : novalue = ! RUN TIME STATISTICS 

; : " begin 

: 1851 4 é 144 

; } § rt Z FUNCTIONAL DESCRIPTION: 

: 1854 405 THIS ROUTINE GATHERS | ap ntter ets OF THE LINK RUN 

3 ; 5 ri AND OUTPUTS THEM TO THE M 

: 4 8 FORMAL PARAMETERS: 

:4 4) NONE 

: 1860 rt i 

3 ; 1 tig IMPLICIT INPUTS: 

: 1 : 414 2 THE MAP FILE MUST HAVE BEEN PREVIOUSLY OPENED. 

: 1864 415 i DATA GATHERED DURING THE LINK 

: 1865 ret i 

3 1298 tt IMPLICIT OUTPUTS: 

: 1868 419 i EACH LINE IS OUTPUT TO THE MAP ON A NEW PAGE IF NEED BE. 

: 1968 420 i THE LINE COUNTER IS INCREMENTED. 

: 1870 421 i 

3; 1871 4 ¢ i ROUTINE VALUE: 

3; 187 4 i 

3; 187 424 i NOVALUE 

3; 1874 425 i 

3 + 18 rs § COMPLETION CODES: 

: 1879 428 2 | NONE 

: 1878 429 i 

4 + 14 : , SIDE EFFECTS: 

: 1881 4 i NONE 

3 Sse is i 

: 188 434 lee 

3; 1884 $32 local 

; 1885 436 fao_errcode, ' FAO ERROR CODE 

3; 1886 2437 valuel : long, ' INTERMEDIATE DATA STORAGE 

3; 1887 site value2 : long, ! INTERMEDIATE DATA aTORAGS 

; 1888 439 value’ : long, ! INTERMEDIATE DATA STORA 

; is rey fao_ctl_ptr : ref block C, byte); ' POINTER TO FAO CONTROL STRING DESCRIPTOR 
: 1831 44g bind 

3; 189 44 auxfnb = ink$gl_mapfil Cfdb$t_auxfnb] ! REFERENCE THE MAP FILE'S AUXILIARY 
: 2, ree : block Cnam$c_Bin, byte); ' FILENAME BLOCK 

: 1895 44 

3 : 3S aie subhdline = 0; ' RESET SUB HEADING 

: : bs “cs if not newpage () then return; ! QUTPUT NEW PAGE FOR IMAGE SYNOPSIS 
; 1900 $2) if not mapbox (Linkwidehdr) then return; ! OUTPUT LINK-WIDE SYNOPSIS HEADER 
: 1900 438 ' 

; 190 454 ! OUTPUT LINK-WIDE SYNOPSIS SECTION 

3; 1904 455 ! 
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; VIRTUAL MEMORY LIMITS 


Page 79 


71986 92:20:31 | EMTAKERSSRESLAKMAPATN. 692; 1 a5} 


LINKER. SRC 


value2 = .ink$gl porys = ,lnk$gl_minva + 1; ! CALCULATE MEMORY SIZE IN BYTES 
valuel = (.value2 + 511)/512; i CALCULATE MEMORY SIZE IN PAGES 
iy not Lnk$mapout (outline, 0) ! SKIP A LINE 
en 
return; 
if not (fao_errcode = SysSfeo (virmemline, outsize, outdes, .lnk$gl_minva, .lnk$gl_maxva, .value2, 
-value2, .valuel)) ' FORMAT LINE 
en 
faofail (.fao_errcode) : 
else 
2 not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
en 
return; ! NO MORE OUTPUT, 1/0 FAILURE 


STACK SIZE 


7 not (fao_errcode = sys$fao (stackline, outsize, outdes, .lnmk$gw_stack)) ! FORMAT LINE 
en 
faofail (.fao_errcode) 
lse 


2 not lnk$mapout (outline, .outsize) ' OUTPUT LINE 
en 
return; ' NO MORE OUTPUT, I/0 FAILURE 


: IMAGE HEADER VIRTUAL BLOCK UNITS 


if .lnk$gw_hdrblks neq 0 ! BASE BLOCK IS ALWAYS ONE (IF ANY HEADER) 


then 


4 not (fao_errcode = sys$fao (imghdrblkline, outsize, outdes, 1, .lnk$gw_hdrblks, .lnk$gw_hdrblks)) 
e 
faofail (.fao_errcode) 
lse 


2 not Lnk$mapout (outline, .outsize) ' OUTPUT LINE 
en 
return; ' NO MORE CUTPUT, I/0 FAILURE 


IMAGE BINARY VIRTUAL BLOCK UNITS 


‘f -lnk$gw_imgblks eql 0 ' IF NO BLOCKS OF BINARY 
en 
' (value2 = 0; valuel = 0) ! THAT IS WHAT WE PRINT 
se 


FORMAT LINE 


£38523 3 


i 8 a dd 
BSCCSSCOCCOCCLCLS 
SESS See 
WN 90 DONOULWNO 
POPIPIPIPIPIPINIPYPIPOPIPIPIPIPIPIPINIPONIPIPUPPPOPOPOMONPOND 


then 
faofail (.fao_errcode) 
else 


—> 2 5 4 2» 3 
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7 not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
en 
return; ! NO MORE OUTPUT, I/0 FAILURE 
! 
IDENTIFICATION 
if not (fao_errcode = sys$fao (identline, outsize, outdes ' FORMAT LINE 
LnkSgt_imgnam, Lnk$gt_imgid)) ! WITH THE STRINGS 


en 
LEAF 


ONOUL WN 


NUMBER OF P-SECTS 
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9 then 
9 5 faofail (.fao_errcode) 
st : lse 
985 5 if not Lnk$mapout (outline, .outsize) ' OUTPUT LINE 
one 5 then 
98 538 return; ! NO MORE OUTPUT, I/0 FAILURE 
988 539 
989 540 : 
990 541 ' NUMBER OF FILES 
991 2¢§ : 
936 54 
99 544 if not (fao_errcode = sys$fao (nfilline, outsize, outdes, .lnk$gw_nfiles)) 
994 $2¢? then 
995 248 faofail (.fao_errcode) 
oe 54 lse 
99 548 
998 549 if not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
999 550 then 
‘34 32) return; ! NO MORE OUTPUT, 1/0 FAILURE 
002 238 ‘ 
00 554 ! NUMBER OF MODULES 
Ope 32? ! 
006 359 f not (fao_errcode = sys$fao (nmodline, outsize, outdes, .lnk$gw_nmodules) ) 
en 
00 326 faofail (.fao_errcode) 
10 et - 
266 7 not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
en 
H return; ! NO MORE OUTPUT, I/0 FAILURE 
5 
5 


Sooooo°o[eo 
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Vv04 18-808-1 982 90:08:89 LINKER. SRCJLNKMAPRIN.B 231 
1 (value2 = .lnk$gqw_hdrblks + 1; ! CALCULATE BASE BLOCK 
valuel = .valued * .ink$gw_imgblks = 1); ! CALCULATE TOP OF BINARY BLOCKS 


if not (fao_errcode = sys$fao Cimgbinblkline, outsize, outdes, .value2, .valuel, .lnk$gw_imgblks)) 


! FORMAT LINE 


! FORMAT LINE 


Page 48 


a i i races ; 4 
6 


1$-$e0-1964 09:05:38 YAR-T1 BLisg=52 v4.0-742, | Page. gt 


ss 


NUMBER OF CROSS REFERENCES 


aS 


if .lnk$gw_ncrosrfs neq 0 
then 


if not (fao_errcode = sys$fao (ncrosrefs, outsize, outdes, .lnk$gw_ncrosrfs)) 
faofail (.fao_errcode) 
ise 


if not Lnk$mapout (outline, .outsize) then return; 


SRaSSe eer 


ooo 
i 
Wms 


i NUMBER OF IMAGE SECTIONS 


PAAAPAAASOOAOAOOAAAO 


Moponofrofnororng 


CUS WN —OOONOU Swit — 


; ay not (fao_errcode = sys$fao (npscline, outsize, outdes, .lnk$gw_npsects)) ! FORMAT LINE : 
3 ' Bh iat (. fao_errcode) | ; 
: 7% ; 
: ¢ o ) es Lnk$mapout (outline, .outsize) ! OUTPUT LINE | : 
; $ ‘ return; ! NO MORE OUTPUT, I/O FAILURE ; 
5 i 3 
3 7 ! 3 
; » NUMBER OF GLOBAL SYMBOLS : 
; 4 § § iT not (fao_errcode = sys$fao (nsymline, outsize, outdes, .ink$gw_nsymbols)) ! FORMAT LINE ; 
; e : 
3 5 5 faofail (.fao_errcode) 3 
3 S 5 lse . 
: 0 8 if not lnk$mapout (outline, .outsize) ! OUTPUT LINE ; 
; 20 288 then 3 
; 20 90 return; ! NO MORE OUTPUT, I/0 FAILURE 3 
Be BG 

: O4¢ 298 i INCLUDING UNDEFINED COUNT OF: 

Soca aoe 5 

> 2045 5 if (.lmk$gw_nudfsyms neq 0) 

: 2046 299 ett ees 

; oe 238 begin ! 

; 4) tt} 4 - not (fao_errcode = sys$fao (nundfline, outsize, outdes, .lnk$gw_nudfsyms)) ' FORMAT LINE 

g en 

; 082 ote ' faofail (.fao_errcode) 

3 else 

3 03 604 

3; 2054 605 if not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 

3 bee 6 then 

: , $ o8 return; ! NO MORE OUTPUT, 1/0 FAILURE 

; 038 60 end; 

3; 205 610 


H 6 
vou2000 1eo$ep=19Be 12:00:3% — EMTNKERSSRESLNRMAPAIN-B92;1 opel 


if (.\nk$gw_nisects neq 0) | 
then 


begin 
1} Bes (fao_errcode = sys$fao (niscline, outsize, outdes, .lnk$gw_nisects)) ! FORMAT LINE 
faofail (.fao_errcode) 
lse 


uw 


‘3 not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
en 
return; ! NO MORE OUTPUT, I/0 FAILURE 


end; 
if not .lnk$gi_ctimsk Clnk$v_sys] 
then 
, begin 
USER TRANSFER ADDRESS 


SESSSZSSISERE Stay tt et 


4 if (.ink$gl_tfrpsc neq 0) 

1 then 

8¢ begin 

34 if not (fao_errcode = sys$fao (usrtfrline, outsize, outdes, .lnk$gl_tfradr)) ! FORMAT LIN 


en 
faofail (.fao_errcode) 
else 


SOD AMARA DANA Be Pe Be Be Bee od a IAI OROR 


if not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 
en 

return; ! NO MORE OUTPUT, I/0 FAILURE 
end; : 


WEARER E RNS FUP BREE EE PE BUENO WIAA OU 


1 
1 
1 
1 
1 
1 
1 
1 
108 
+ 4 not lnk$mapout (outline, .outsize) ' OUTPUT LINE 
en 
Ai) return; ! NO MORE OUTPUT, I/0 FAILURE 
118 end; ! 
114 
115 ‘ 
118 : DEBUGGER TRANSFER ADDRESS 
119 rai if (.lnk$gl_dbgtf 0) 
ein s ne 
120 ort ma 
: 1 ore begin 
; § ore 7 not (fao_errcode = sys$fao (dbgtfrline, outsize, outdes, .lnk$gl_dbgtfr)) ! FORMAT LIN 
en 
125 O76 faofail (.fao_errcode) 
1 $ 67 lse 
1 67 
1 67 
1 
1 
1 
1 


No 
Ssoss 
Wr —O Oo 


Lh 
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: 
; 


; COUNT OF ADDRESS FIXUPS 


wa 


2 f .lnk$gl_adrefs neq 0 
“begin 
if not (fao_errcode = sys$fao (nadrefline, outsize, outdes, .ink$gl_adrefs)) 
ing faotail (. fao_errcode) 


if not Lnk$mapout (outline, .outsize) then return; 
end; 


COUNT OF SYMBOL REFERENCES IN SHAREABLE IMAGES 


if .lnk$gl_shrsyms neq 0 
then 
begin 
7 not (fao_errcode = sys$fao (nshrsymline, outsize, outdes, .lnk$gl_shrsyms)) 
en 
' faofail (.fao_errcode) 
e 


if not Lnk$mapout (outline, .outsize) then return; 


end; 
1 


OTS TRANSFER ADDRESS 


7 -lnk$gl_otsepdsc neq 0 ! JF THE OTS TRANSFER ADDRESS WAS 
en 
begin ! FOUND THEN OUTPUT IT TO 


ind 
otsepsnb = .lnk$gl_otsepdsc - .lnk$gl_otsepdsc Csym$b_naming] - snb$c_fxdlen : block C, byte 


if not (fao serrcoge = pysSteo jorectrling. ous ize outdes ' THE MAP ALSO. INCLUDE 
otsépsnb snb$b_nam ing], f° fHe RESERVE 
. ink$gl_otsepds¢ Csym$l eM ! e ENTRY POINT AS WELL AS ADDRESS 
en 
' faofail (.fao_errcode) ! REPORT ANY FORMATTING ERROR 
4e 


i? not Lnk$mapout (outline, .outsize) ! OUTPUT IT 
en 
return; ! EXITING ON ERROR 


ee ee eee 


NN NNN NN NAA AAAPOAAA III ES BE PPE PEE 
Ree oe 8 Oe NO NO Doe On POU oS Oto a nO tO Dae ania 


[ve oY oY oY oF oF oF aaa) ot ot or rt Pr ee oe? ot or ot al et ed Oe es ee] 


Be Be Ge Se Be Se Se Se Ge Se Se Ge FH Se Ge Fe Ge Se Se Se Se Be Ge Se Ge Se Se Se Ge oe Fe Se Se Se Se Ge Se Se Se Ge Ge Ge Se Se Se Se oe Se Ge Se Ge Se Se Ge Ge Ge ae 
ROPIPOPONINOPIPONIPOPINIAIMUNINUNINIE | SPOPIPIPIPIPIPNIPIPDPIPINIPIPIPIPIPINIPIPIPIPPIPF JPURININIPUINIPINUPURD 


end; 


rc 


PROUTINES 


—> bs —) 4) 5 Dd 


SRLESRANLSSSLEREANLS 


ee ee 


NAVE UNM “"OODOVNOAUS WO 
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f .ink$gl_ctlmsk Cink$v_brief] ! SELECT BRIEF FIELD 
n 


valuel = briefmap 
else 


1h) end; 
74 
i i IMAGE TYPE 
745 value2 = blanks 
046 fao_ctl_ptr = chSptr (imgatrline, 0); ! ASSUME IMAGE IS NOT SHARABLE 
be | if .imk$gl_ctlmsk Clink$v_exe] ! SELECT EXE IMAGE PRINT 
74 then 
f ? valuel = exeimage; ! LINE 
f ¢ iy - inkSgl_ctlask Cink$v_sys] ! SELECT SYS IMAGE PRINT 
e 

f ¢ valuel = sysimage; ! LINE 
f $ iv «lnk$gl_ctlmsk Cink$v_shrJ ! SELECT SHR IMAGE PRINT 
7 “be in 
739 fes.¢ ctl_ptr = ch$ptr (imgshrline, 0); ! USE SHARABLE IMAGE FAO CONTROL STRING 
43 if .lnk$gl_ctlmsk Clnk$v_picimg] then valuel = pic else valuel = nopic; 
76 value2 = yer fncge ; 
ree 2 value A, (selectone .ink$gb_matchctl of 
768 4 {sd$k _matall] : alltime; ' SELECT MATCH = ALWAYS 
767 & isd$k_matnev] : never; ! SELECT MATCH = NEVER 
768 4 isd$k_matequ) : equal; ' SELECT MATCH = EQUAL 
769 4 isd$k_ -matleq 4 (ssequal: ' SELECT MATCH = LESS/EQUAL 
770 4 otherwise] : blanks; ! NO MATCH SET 
a4 4 tes); 

end; 
77 
oe begin 
77 bind 
77 gsmajid = .lnk$gl_matchid<24, 8, 0>, ' GLOB SEC MAJOR ID 
A gsminid = ~ ink$gl- “matchid<0, 24, 0>: ! GLOB SEC MINOR ID 
7 4 if not (fao_errcode = sys$fao (.fao_ctl_ptr, outsize, outdes, .valuel, .value2, .value3, gsmajid, gsmini 
f 1 4 . ) ! FORMAT LINE 

n 
7 : faofail (.fao_errcode) 
g : else 
f not Lnk$mapout (outline, .outsize) ! OUTPUT LINE 

en 

A return; ! NO MORE OUTPUT, 1/0 FAILURE 
7 end; 
791 
a MAP FORMAT LINE 
7 
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47 
4 f -lnk$gl_ctlmsk Cink$v_long] 
valuel = Longmap 
else 
valuel = defaultmap; 
if .Unk$gl_ctlmsk Cink$v_cros] 
then 


value2 = crefmap 


ae 
value2 = blanks; 


en 
faofail (.fao_errcode) 
e 


he 


return; 
e 
faofail (.fao_errcode) 
else 
DONE WITH LINK-WIDE SYNOPSIS 


sys$gettim (lnk$gq_endtim); 
; NOW GIVE THEM THE RUN STATISTICS 


WN" OOCONOUES WN “CO OONOUS wT 


USANA AATINNNNINNMNN 


if not mapbox (lLinkstats) then return; 
ink$statsout (); 


QRARAN ALS SOLS ARNIS SSUS A PEO Doe ue 
09.09 09 0D OD GD GD CO 09 09 CO GD 00 C0 09 09 CD. CD 


SS 
rte 
owoc 


er 


Be Se Se Ge Se Ge Ge Fe Ge Se Se Se Ge oe Se Se Se Ge oe FH Se SH Se Be Se Se Se Oe Se SH Se Se Se Se Ge Se Se Se Se Se Ge Se ee 


Morofreroferen 
co 


§ ++ pha 
OFFC 00000 
6 fs - F 9€ 608 
SEY ti 
oS COREREEES OO 34 i ba O03 


if not (fao_errcode = sys$fao (mapformat, outsize, outdes, .valuel, .value2, 
.auxfnb Cnam$b_rsl), .auxfnbd Cnam$l_rsal)5 


if not lnk$mapout (outline, .outsize) 
then 


if not (fao_errcode = sys$fao (maplength, outsize, outdes, .mapestim)) 


if not Lnk$mapout (outline, .outsize) then return; 


! SELECT LONG FIELD 
! SELECT POSSIBLE CREF SUFFIX 


! FORMAT THE LINE 
! REPORTING FAILURE 


! OUTPUT THE LINE 

! GIVING UP ON FAILURE 

! FORMAT LENGTH ESTIMATE LIN 
! AND GIVE UP ON FAILURE 


! OUTPUT THE LINE GIVING UP ON ERROR 
! GET THE TIME NOW 

! GIVE UP ON FAILURE OF BOX HEADING 

! AND GO DO THE WORK 


-ENTRY LNKSMAPSTATS, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 2399 


SMAPOUT 
MOVAB BLANKS, R8 
ROVAR OUTSIZE. R7 
ADDL3 #38, LNKSGL_MAPFIL, R6 
CLRL § SUBHDLINE 


3e4 


<=_ 


° 
8 
o 
= 
e 
* 
° 
. 
o 
. 
a 
- 
e 
7 
a 
. 
. 
. 
” 
7 
° 
. 
o 
e 
. 
a 
. 
a 
. 
° 
. 
e 
. 
. 
. 
o 
° 
7 
* 
. 
. 
7 
2 
. 
i 
° 
e 
. 
a 
7 
° 
. 
e 
° 
e 
. 
@ 
© 
° 
7 
° 
o 
e 
© 
o 
7 
o 
. 
° 
. 
© 
. 
@ 
. 
- 
* 
2 
. 
e 
° 
e 
o 
e 
& 
oe 
i 
e 


4 
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00000000 EF Q iS CALLS #0, NEWPAGE + 2449 
026D F PUSHAB LINKWIDEHDR + 2651 
00000000v EF ) i i CALLS ie HAPBOX : . 

50 000000006 000000906 § 4 SUBL3  LNKSGL_MINVA, LNKSGL_MAXVA, RO + 2459 
1FF ¢ 3 ; NOVA (RO), VALUEZ + 2460 

54 00000200 bf 5 DIVLS #512, RO, VALUE1 ; 
5 b4 6 CLRL 0 =< SPS + 2462 

FF74 F 0006 PUSHAB OUTLINE : 

69 ; Fe 6 CALLS #2, _NKSMAPOUT : 

60 E C LBC COti«éiRR ; 
1g BB O06F PUSHR #*M<R2,R4> : 3467 
DD 00071 PUSHL VALUE + 2466 

900000006 6 DD 00 a PUSHL LNKSGL_MAXVA : 

00000006 D 0007 PUSHL_ LNKSGL-MINVA : 

FB OA?OOF 007F PUSHAB OUTDES : 

57 0D O82 PUSHL R : 

FRE C8 9F 00084 PUSHAB VIRMEML INE : 

6A F 0088 CALLS #8, SYSSFA : 

1 D 8B VL RO. FAO_ERRCODE : 

07 E8 OOO8E BLBS § FAO_ERRTODE, ; 
53 DD 90091 PUSHL FAO-ERRCODE + 2469 

68 01 FB 00093 CALLS #1, FAOFAIL : 

oD 11 00096 BRB 3$ ; 
7E 6 3¢ 00098 1$ MOVZ2WL OUTSIZE, -(SP) + 2472 

FF74 «C7?.—sOOF 90098 PUSHAB OUTLINE : 

9 92 FB O09F CALLS #2, LNKSMAPOUT : 

F 5 000A2 38: BLEC ~—E_«aRO, : 
E 000000006 00 3C O00A5 3S: MOVZWL LNKSGW_STACK, -(SP) + 2480 

F8 A? 9F OOOAC PUSHAB OUTDES ; 

57 DD OOOAF PUSHL R : 

FCOC «C8 «OOF 00081 PUSHAB STACKLINE : 

6A 4 FB 000B5 CALLS #4, SYSS$FAO : 

53 dO 00088 MOVL RO, FAO ERRCODE : 

07 53 £8 00088 BLBS § FAO_ERRCTODE, 4$ : 
53 DD 0008 PUSHL FAO-ERRCODE + 2482 

68 oi FB 000C CALLS #1, FAOFAIL : 

3 11 000C BRS 3 
7E 5 3¢ 0c 4$: MOVZWL OUTSIZE, -(SP) : 2485 

FF74 C7? 9F 000C PUSHAB : 

$9 FB O0CC CALLS #2, LNKSMAPOUT : 

6 9 CF S$ BLEC —E._«aRO, : 
50 000000006 g 0 bg é$ MOV ZUL LNKSGW_HDRBLKS, RO > 2493 
6 DD 00008 PUSHL RO + 2496 

DD 000DD PUSHL R F 

01 oD oF PUSHL #1 : 

F8 AZ? 9F OO0E1 PUSHAB OUTDES : 

57 pp £4 PUSHL : 

FCB4 C8 9F O00E6 PUSHAB IMGHDRBLKL INE : 

6A F EA CALLS a6, SYSSFAO ; 

3 D E MOVL RO, FAO ERRCODE : 

07 E F BLBS  FAO_ERRCODE, 7$ : 
DD O00F PUSHL FAO"ERRCODE > 2498 

68 1 FB 000F CALLS #1, "FAOFAIL : 

| 


mM 6 
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op 1 000F8 BRB 9$ ; ; 

7E C OOOFA 7$: MOVZ2WL OUTSIZE, -(SP) + 2501 ; 
FF74 C7? 9F OOOFD PUSHAB OUTLINE ; : 

6 re 1 CALLS #2, LNKSMAPOUT : ; 
1 gs: BLBC 8 : F 

50 000000006 7 9$: NOV ZuL LNKSGU_INGBLKS, RO t 2509 : 
; D 1 b CLRL VALUE 3; 2511 . 

D4 0011 CLRL VALUE ; : 

1 00114 BRB 11 : : 

52 000000006 C 00116 10$:  MOVZWL LNKSGW_HDRBLKS, VALUE2 + 2513 : 
4 824 — 00110 MOVAB CYALUEZ) +CR ], VALUE1 : 2514 3 
50 DD 00121 11$:  PUSHL + 2516 ; 

14 BB 001 PUSHR #*M<R2,R4> : ; 

F8 A? «OOF «(001 PUSHAB OUTDES : ; 

57 DD 00128 SHL : : 

FD0O C8 9F OO12A PUSHAB IMGBINBLKLINE : F 

6A g FB 001 ; CALLS m6, SYSSFAO : ; 
53 D 4 MOVL RO. FAO ERRCOD : ; 
07 53 £8 001 FAO_ERRCODE, : ; 
3 DD 00137 PUSHL  FAO-ERRCOD + 2519 F 

6B 1 FB 00139 CALLS #1, FAOFAIL : : 
OD 11 0013¢ BRB 14$ F ; 

7E 67 3¢ O13E 12$ MOVZWL OUTSIZE, -(SP) : 2522 ; 
FF74 «C7? «OF 00141 PUSHAB OUTLINE : 3 

69 es FB 00145 CALLS #2, LNKSMAPOUT : : 
5C £9 0148 13$:  BLBC RO. 19$ : ; 
000000006 00 SF 00148 14$:  PUSHAB LNKSGT_IMGID : 2530 : 
000000006 00 9F 00151 PUSHAB LNKSGT~IMGNAM : : 

FB A? OF 00157 PUSHAB OUTDE : : 

57 DD O15, PUSHL R : : 

FD34 C8 9F 0015¢ PUSHAB IDENTLINE ; : 

6A 9 F 0160 CALLS #5, SYSSFAO : ; 
53 D 0016 VL — RO. «FAO ERRCODE : : 
07 3 E8 00166 LBS  FAO_ERRTODE, 15$ : ; 
DD 00169 PUSHL FAO-ERRCODE : 2533 : 

68 oi FB 00168 CALLS #1, FAOFAIL : ; 
) 11 O16 BRB 17§ ; : 

7E 6 3¢ 0170 15$:  MOVZWL OUTSIZE, -(SP) : 2536 : 
FF74 C7 «OF O17 PUSHAB OUTLINE : ; 

69 3 FB 17 CALLS #2, LNKSMAPOUT : ; 
? O17A 16$:  BLBC . ; 3 
7E 000000006 00 C 0017D 17$:  HOVZ2WL LNKSGW_NFILES, -(SP) + 2544 ; 
F8 A? OF 001 PUSHAB OUTDES : : 

57 DD 00187 PUSHL R : F 

FD58 CB 9F 00189 SHAB NFILLINE : 3 

6A 4 FB 001 CALLS #4, SYSSFAO : ; 
53 dO 001 VL —s RO, - FAO ERRCODE : F 
07 E8 0019 BLBS FAO_ERRTODE, 188 : : 
DD 19 PUSHL FAO-ERRCODE > 2546 : 

68 1 Fe 19 CALLS #1, FAOFAIL : ; 
p 11 00198 RB 20$ : : 

7E 6 3¢ 19D 18$ MOVZWL OUTSIZE, -(SP) : 2549 F 
FF74 C7? 9F QO1A0 PUSHAB OUTLINE : : 

9 3 4} 1A4 CALLS #2, lea $ e 
7 5 1A7 19S: LBC =—s«RO,. O58 : : 
E 000000006 00 3C OO1AA 20$:  MOVZWL LNKSGW_NMODULES, -(SP) : 2557 : 


ee —_—— 
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F8 A? OF 00181 PUSHAB OUTDES : : 
57 po 1B4 PUSHL R : : 
FD80 CB OOF 00186 PUSHAB NMODL INE : : 
ga 4 FB OO1BA CALLS #4, SYS$FAO : : 
: D0 001 VL = RO, ~ FAO ERRCODE : ; 
0 EB OO1C BLBS § FAO_ERRCODE, 2 : F 
DD O01C PUSHL FAO-ERRCODE + 2559 ; 
68 1 Fe 1¢ CALLS a FAOFAIL : ; 
3 1¢ BRB 23§ : ; 
7E 67 3C OOICA 21$ MOVZWL OUTSIZE, -(SP) + 2562 : 
FF74 C7? 9F OO1CD PUSH TLINE : F 
69 FB 101 CALLS #2, LNKSMAPOUT : ; 
1D4 338 LBC =O saRO, 28S : ; 
7E 000000006 C 00107 23$ MOVZWL LNKSGW_NPSECTS, -(SP) + 2570 ; 
FB A? OOF 1DE PUSHAB GUTDES : ; 
57 pp OIE PUSHL R : ; 
FDBO «CB OS 163 PUSHAB NPSCLINE : ; 
6A 4 FB OIE CALLS #4, SYS$FAO : ; 
53 DO OO1EA MOVL RO. FAO ERRCODE : : 
07 3 E8 OO1ED BLBS FAO_ERRTODE, 24$ ; 3 
DD 001F0 PUSHL FAO-ERRCODE + 2572 ; 
68 4 FB ike CALLS #1, FAOFAIL : F 
p 11 OO1F BRB 6 F ; 
7E 67 3C OOIF? 24$:  MOVZWL OUTSIZE, -(SP) : 2575 ; 
FF74 C7? 9F OOTFA PUSHAB : ; 
69 02 FB O1FE CALLS #2, LNKSMAPOUT : ; 
58 5 F 0201 358: BLBC : : : 
7E 000000096 00 3¢ 0 04 6$: nOVZuL LNKSGW_NSYMBOLS, -(SP) : 2583 3 
57 pp , OF PUSHL : 
FDDC C8 YF u021 PUSHAB : 
6A 04 FB 0214 CALLS #4, SYSSFAO : 
53 D0 00217 MOVL RO. FAO ERRCOD : 
07 53 EB OOZTA BLBS  FAO_ERRTODE, 27$ ; 
53 DD 0021D PUSHL FAO-ERRCODE : 2585 
68 01 FB OO21F CALLS #1, FAOFAIL : 
9D 11 00222 BRB : 
7E 6 3¢ 0224 27$:  MOVZWL OUTSIZE, -(SP) : 2588 
FF74 C7? 9F 00207 PUSHAB OUTLINE : 
69 g Fe 0 B CALLS #2, LNKSMAPOUT : 
F E 288: BLBC RO. 34 : 
50 000000006 ¢ 1 29$: ROVZUL LNKSGW_NUDFSYMS, RO ; 2596 
0 pd A PUSHL a6 > 2600 
Fa OA?sOOF C PUSHAB OUTDES : 
57 pp ; PUSHL R ; 
FEOC CB OF 00241 PUSH DFLINE : 
$A . * 45 CALLS #4, SYSSFAO : 
3 D 48 VL — RO. FAO ERRCODE : 
07 E 48 BLBS FAO_ERRCGDE, 30$ ; 
DD 0024 PUSHL FAOERRCODE > 2602 
68 FB CALLS #1, FAOFAIL : 
p BRB 32§ : 
7E 67 3¢ 30$:  MOVZWL OUTSIZE, -(SP) > 2605 
FF74 «67? «(OF PUSHAB OUTLINE ; 
9 ; FB C CALLS #2, LNKSMAPOUT : 
F E F 31% BLBC }3=E._s«aRO, 3878 : 
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50 000000006 3 62 32$: MOVZWL LYKSGW_NCROSRFS, RO : 2615 
d 4 Pr She 20° : 2618 

A BP PUSHAB QUTDES ; 

57 pp PUSHL ; 

FE3C «=CCBO PUSHAB NCROSREFS F 

$A 4 F 7 CALLS a, SYSSFAO : 

3 D 7 MOVL FAO ERRCODE : 

07 E 7¢ BLBS FAO. ERRTOD ; 

DD O027F PUSHL FAO- ERRCODE + 2620 
6B 1 FB 1 CALLS #] “FAOFAIL : 
: BRB 35§ ; 

7E C 33$ MOVZWL OUTSIZE, -(SP) + 2623 
FF74 C7? OF 00 PUSHAB OUTLINE ; 

69 g Fe 028D CALLS ’ , LNKSMAPOUT : 

6D é 0 20 348: LBC 41$ ; 

50 000000006 g 0 93 35$:  MOVZWL CNKSGU_NISECTS, RO + 2629 

bd 9059¢ Best, RO + 2633 
FB A? OF 0029E PUSHAB OUTDES ; 
57 DD 00 Al PUSHL R : 
FE68 CB 9F 00 a3 PUSHAB NISCLINE : 

6A 04 FB 002A CALLS #4, SYSSFAO F 

53 5 D0 O2AA MOVL RO. FAO ERRCODE : 

07 53 EB OO2AD BLBS AO_ERRTODE, 36$ ; 

53 DD 00280 PUSHL FAO-ERRCODE + 2635 
6B 4 FB 00 Be CALLS #1, FAOFAIL ; 
p 11 0028 BRB 3a$ ; 

7E 6 3¢ 0287 36$:  MOVZWL OUTSIZE, -(SP) : 2638 
FF74 C7 9F OO2BA PUSHAB OUTLINE : 

69 92 FB 00 BE CALLS #2, LNKSMAPOUT : 

70 50 £9 00 C1 37$:  BLBC . : 

03 000000006 00 0183 f 0 Ch 8$: BBC #3, LNKSGL_CTLMSK, 39$ : 2644 
060000006 D3 09 cr 39$: Ist LNKSGL_TFRPSC : 2651 
000000096 g DD 00207 PUSHL LNKSGL_TFRADR : 2655 

My Bigee FURIE. gTOES 7 
FFSC CB OF O02E2 PUSHAB USRTERL INE | : 

6A 4 FB 00266 CALLS : 

53 DO 002E9 MOVL RO. te oa : 

07 E8 OOZEC BLBS FAO -ERRCODE 40$ F 

DD ; EF PUSHL FAO-ERRC : 2657 

68 1 FB Fi CALLS #1 “FAGFA : 

: 1 F4 BRB 42 : 
7E 6 3¢ rg 40$: MOVZWL OUTSIZE, -(SP) + 2660 
FF74 «CC? OF QOeF PUSHAB LIN : 

69 2 FB F CALLS #2, LNKSMAPOUT : 

62 E 41$: BLBC : : 
000000006 i D3 ; 42$: Ist LNKSGL_DBGTFPS : 2670 
000000096 6 pd PUSHL LNKSGL_DBGTFR > 2674 

Bo RR pune gyroes | 
FFO4 c8 ep 16 PUSHAB DBGTFRLINE : 
6A 4 FB OO3IA CALLS #4, SYS$FAO : 


LNK_MAPROUT INES 
v04=000 


vw 


VINO 
o—- ovo 


NWP 


as TS 


FF74 ey 

000000006 
FB OA 

57 

FE94 8 

1 

0D 

67 

FF74 0 

000000006 28 

0 

FB A? 

57 

FEDS Oe 

4 

3 

5 

4 

6? 

FF74 ? 

000000006 : 
OF A 

I 

60 

FF AI 

FB OA? 

57 

FF34 : 


oslo 
1e-Sep-1 
00 
re 

i . 43$: 
4 } 44$: 
0 7 45$: 
: 4 
ae 
oF 00847 
baa 
ig 1 

BD 90384 
11 90859 
a 
£9 OO865 47s: 
Se 
op 80 73 

DD 00376 

SF 00378 

F 037C 

09 037F 

E 0 3 

OD 5 

1 A 

Hs ° ‘ 49$: 
fe 8 %8 208: 
neg 
oh 005s 
€3 SOSA 
oF AC 

F O05 
BD O0%8 
09 B8 

0 BB 

E B 
rae 
1h 9088 


Be 18:20:37 


AX-11 Bliss-32 V4.0-74 
LINKER.SRCJLNKMAPRTN.B52; 1 


MOVL RO, FAO ERRCODE 
BLBS § FAO_ERRTODE, 43$ 
PUSHL FAOTERRCODE 
CALLS #1 FAOFAIL 
RB 45$ 
MOVZWL OUTSIZE, -(SP) 
PUSHAB OUTLINE 
CALLS #2, LNKSMAPOUT 
BLBC =._-RO,_: 50 
MOVL § LNKSGL_ADREFS, RO 
BEQL ags 
PUSHL R 
PUSHAB OUTDES 
PUSHL R 
PUSHAB NADREFLINE 
CALLS #4, SYS$FAO 
OVL RO. FAO _ERRCODE 
LBS § FAO_ERRTODE, 46$ 
PUSHL FAO"ERRCODE 
CALLS FAOFAIL 
MOVZWL OUTSIZE, -(SP) 
PUSHAB OUTLIN 
CALLS #2, LNKSMAPOUT 
BLBC ™ 
MOVL LNKSGL_SHRSYMS, RO 
BEQL 1$ 
PUSHL RO 
PUSHAB OUTDES 
PUSHL 
PUSHAB NSHRSYMLINE 
CALLS #4, SYS$FAO 
MOVL RO, FAO ERRCODE 
BLBS FAO_ERRCTODE, 49$ 
PUSHL FAO~ERRCODE 
CALLS #1, FAOFAIL 
MOVZWL OUTSIZE, -(SP) 
PUSHAB LINE 
CALLS #2, LNKSMAPOUT 
BLBC = RO, 538 
MOVL LNKSGL_OTSEPDSC, RO 
BEQL 4$ 
MOVZBL 15(RO), R1 
SUBL3_ R17, RO, RI 
PUSHL (RO) 
PUSHAB -1(R1) 
PUSHAB OUTDES 
PUSHL R 
PUSHAB OISTERL INE 
CALLS #5, SYSS$FAO 
MOVL RO, FAO ERRCODE 
BLBS FAO_ERRTODE, 52$ 
PUSHL FAO"ERRCODE 
CALLS #1, FAOFAIL 
BRB 4 
MOVZWL OUTSIZE, -(SP) 


| 


P 0 
09° 139 
2676 
2679 


2689 
2693 


Pe Pe Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Fe Bs Be Be Se Os Be Be Be Bs Sete Se Se Se Se Ge Se Fe Se Se Ge Ge Ge Fe Se Se Ge Ge Fe Ge Ge Ge Se Ge Ge Ge 
—~m 
GN 
— 
oO 


LNK_MAPROUT INES 
v04=000 


05 000000006 

05 000000006 

52 000000006 ; 
5 


06 000000006 


7E 000000006 00 18 


07 000000006 $6 


wm 


DOWMAMOSVIID —— 


NwMMMOCVIVIOO 


o 
wv 


S28 


O> NMOMDOLSMVISMOO 
vw 


on 
PR 


DOQOQOOOOOOOOOOOOOSoOoOO 


OOoooooooo 
“i 
eo 


oe 


oo] 0-9 OO 
SB BBB BBP BEE EF PAWN 


oa 
oO 
wn 


, a a ee 
, a ee 
oa 
— 
wr 


MN MNS Mn MNVOmMm 
TOoOow— 


ooooo 
= 


ooomo—-0o—- 0 — o-- 0 — 
“Mm 


occ, 


SOS OSNOOM SOON F MVUNDOASOMOM1DN OM MNOVMVIN DOM FOPFOPOMONONOA NOOO 
MODOWO ON NING “WWI BM NE NMOOOOWON — OND OO NI SIO NOOO SO COrvcnWwo—cNcD Oru 


BPP PPP PPP PEE EEE 


2WSSES 


a wooggee 


Bc 1:20:31 EMtnmen:SReSiAKMAPA TN. B82; 1 


PUSHAB OUTLINE 
CALLS #2, NK SMAPOUT 
BLBS RO, 54$ 

MOVAB BLANKS, VALUE2 

MOVAB IMGATRC INE. FAO_CTL_PTR 
BBC #1, LNKSGL_CTLMSK, 55$ 
MOVAB E ERAGE ALU 
LNKSGL_CTLMSK, 56$ 


f VALUE 

#2, LNKSGL_CTLMSK, 63$ 
MOVAB IMGSHRLINE, FAO cf PTR 
BBC #1, LNKSGL_CTLMSK+2, 57$ 
€, VALUET 


MOVAB NOPIC, VALUE1 
MOVAB SHRIMAGE, VALUE2 
MOVL NKSGB_MATCHCTL, R1 


BNEQ 

MOVAB Abt TIRE. VALUES 
BRB 6 

CMPL Ri, #3 

BNEQ 60 

MOVAB meyer. VALUES 
BRB 63$ 

CMPL Ri, #1 

BNEQ 6 

MOVAB EQUAL, VALUES 
BRB 63$ 

CMPL Ri, #2 

BNEQ 6 

MOVAB LgSEQuAL. VALUES 
st 63$ 


MOVAB BLANKS VALUE3 

EXTZV. #0, #24, LNKSGL_MATCHID, -(SP) 
MOVZBL LNKS$GL_MATCHID+3, -(SP) 

PUSH ALUE 


OVL RO. FAO ERRCODE 
LBS FAO_ERRTODE, 64$ 
PUSHL FAOTERRCOD 

CALLS #1, FAOFA 
BRB 65$ 
MOVZWL OUTSIZE, -(SP) 
PUSH TLINE 

CALLS #2, LNKSMAPOUT 
BLBC =_-«aRO.. 72S 

BBC #1. LNKSGL_CTLMSK+1, 66$ 
MOVAB BRIEFMAP, VALUE? 


BLBC_ LNKSGL CTLMSK+1, 67$ 
MOVAB LONGRAP VALUE 1 
BRB $ 


Pete Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Ss Se Se Be Pete Se Se Ge Se Ge Se Ge Se Se Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Se 


7 
LK _MAPROUT INES 1b-5¢ -1984 00:05: AX-11 Bliss-32 V4.0-74 
v06=000 1 ~300n 138% 90:03:38 LINKER. SRCJLNKMAPRTN.B32; 1 
54 4A9 67$: | MOVAB  DEFAULTMAP, VALUE? 
000080006 6 # 4AE 68$: isi LNKSGL_CTLASK 
52 00D0 f H 4B6 MOVAB CREFMAP, VALUE2 
11 00488 BRB 0 
52 6 SE 4B 4 MOVAB BLANKS, VALUE2 
04 A6é DD 004CO 70$: — PUSHL (RG) 
7E 3 Ag A 004¢ MOVZBL 3(R6), (SP) 
2 DD 004¢ HL VALU ; 
4 DD 004¢9 PUSHL VALUE 
F8 A? OF 004CB PUSHAB QuTDES 
57 DD 004C¢ PUSHL R 
FC38 8 F 0040 PUSHAB MAPFORMAT 
ga FB 00404 CALLS #7, SYS$FAO 
z D0 00407 MOVL RO, FAO _ERRCODE 
07 EB OO4DA BLBS FAQ_ERRCODE, 71$ 
3 DD 00400 PUSHL FAOTERRCODE 
6B 01 FB 4DF CALLS #1, FAOFAIL 
Op 11 004E2 BRB 73$ 
7E 6 3¢ 04E4 71$:  MOVZWL OUTSIZE, -(SP) 
FF74 C7? OF Q4E7 PUSHAB OUTLINE 
69 ; Fe 4EB CALLS #2, LNKSMAPOUT 
48 E9 O04EE 72s BLBC AS 
6C AZ DD 004F1 73$ PUSHL PESTIM 
Fa A? OOF O04F4 PUSHAB OUTDES 
57 po O4F7 PUSHL 
FC68 «=6CB OOF 004F9 PUSHAB ENGTH 
6A 04 FB O4FD CALLS #4, SYSSFA 
53 50 D 90500 MOVL RO, FAO _ERRCODE 
07 53 £8 005 BLBS §FAO_ERRTODE, 74$ 
53 DD 00506 PUSHL FAO-ERRCO 
LL FAOFAIL 
6B 01 FB 0050 CALLS #1 Al 
Op 11 00508 BRB 75 
7E 6 3¢ 050D 74$: MOVZWL OUTSIZE, -(SP) 
FF74 C7 9F 00510 PUSHAB OUTLIN 
69 02 FB 00514 CALLS #2, LNKSMAPOUT 
22 5 Es 0517 BLBC , 
00000000' FF F 0051A 75$:  PUSHAB LNK$GQ_ENDTIM 
000000006 00 1 FB 005 9 CALLS #1, SYSSGETTIM 
02c4 C8 9F 005 PUSHAB LINKSTATS 
00000000v_ EF o1 FB 05 CALLS #1, MAPBOX 
7 0 €9 005 BLBC RO, 76$ 
000000006 00 00 FB 005 CALLS #0. LNKS$STATSOUT 
04 0053C 76%: RET 


; Routine Size: 1341 bytes, Routine Base: SCODE$ + OFDO 


: 2290 2841 1 


‘7 
LK _MAPROUT INES 16-Sep-1984 00:05: AX-11 Bliss-32 V4.0-74 Page 93 
V¥04=000 eR aets ran GS wT tg CET ie a 


chpntr = ch$ptr (outbufr); ! INITIALIZE CHARACTER POINTER 
PUTE NUMBER 


outsiz = (len$c_ma Line - .addr (0))/2 - 8; OF SPACES BEFORE BOX 


' 
; | COM 
chpntr = ch$filT (Xc' *, .outsiz, .chpntr); ; MOVE I 


; tg ! routine mapbox (addr) = ! OUTPUT HEADER IN A BOX : 
; 44 1 146 : 
; 45 1 i FUNCTIONAL DESCRIPTION: ; 
: $ 1 i THIS ROUTINE OUTPUTS A HEADER CONTAINED IN A BOX AND FOLLOWED BY : 
; 48 i A BLANK LINE. : 
; 30 FORMAL PARAMETERS: : 
: 2¢ 1 i ADDR == THE ADDRESS OF THE HEADER. AN ASCIC STRING CONTAINING THE ; 
; 5 | SIDES OF THE BOX ; 
: 230 25 IMPLICIT INPUTS: 
; oF 637 THE BOXED HEADER IS WRITTEN TO THE MAP AND FOLLOWED BY A BLANK LINE. ; 
; 09 639 IMPLICIT OUTPUTS: 
> 2311 861 1! NONE ; 
3 \¢ 862 1! 3 
; \3 863 i ROUTINE VALUE: ; 
: a6 865 NOVALUE ; 
; 317 Bs? COMPLETION CODES: ; 
: 2319 869 1 | NONE : 
; 359 870 1! 3 
: 33 1 871 i SIDE EFFECTS: 3 
: 358 He 1 i NONE : 
3; 23246 874 1! 3 
3; 2325 875 1 !-- 3 
5 $59 are begin : 
: : a 878 map F 
: 3 9 879 addr : ref vector C, byte); ! REFERENCE A COUNTED ASCII STRING : 
: 2331 eat local : 
3 es 5 outsiz : word, ' OUTPUT LINE SIZE 3 
3 233 88 chpntr : long, i CHARACTER POINTER FOR OUTPUT LINE : 
3 2334 884 boxpntr : Long, i CHARACTER POINTER FOR OUTPUT LINE 

; 5 5 outbufr : ch$sequence (len$c_mapline); ! OUTPUT BUFFER 

: $ i? not .lnk$gi_ctlmsk Clnk$v_mapopn] ! MAP FILE OPEN? 

° en 

3 39 H return false; ' NO, RETURN 

: 2341 91 

: ‘ 38 N SPA 

: i 94 boxpntr = .chpntr; i REMEMBER WHERE BOX STARTS 

: 5 95 chpntr = ch$fill (Xc'+', 1, gchpnte: i MOVE IN BOX CO 

3 § 38 chontr = ch$fill (2c'=", ,addr [0] - 2, .chpntr); =! MOVE IN TOP OF BOX 

; 9 chpntr = ch$fill (%c'+", 7, .chpntr); ' MOVE IN BOX CORNE 

3 2348 98 outsiz = .outsiz + .addr (6): i COMPUTE LENGTH OF OUTPUT LINE 


7 
1$-Sep-1964 00:05:58 YAR-II BLisg-52 v4. 0.742. 


) Bs Lnk$mapout (outbufr, .outsiz) ! OUTPUT TOP OF BOX 

return false; ! NO MORE OUTPUT, 1/0 FAILURE 
ch$move (.addr (0), addr [1], .boxpntr); ! MOVE IN TITLE AND BOX SIDES 
) Be ink$mapout (outbufr, .outsiz) ! OUTPUT HEADER IN BOX 

return false; ! NO MORE OUTPUT, I/0 FAILURE 


chpntr = ch$fill (%c'+", 1, gboxpotr); ! MOVE IN BOX CORNER 
chpnte = ch$fill (%c'=", addr CO] - 2, .chpntr); | MOVE IN BOTTOM OF BOX 
chpntr = ch$fill (%c'+"’. 1, .chpntr); ! MOVE IN BOX CORNER 


Be Se ee Se Ge Fe Oe Oe Ge SH Ge Se Ge Se Se Se Se OH Ge SH oe 
mewn DONOULS WO” S 


WONOULS WN —-OO®@ 


iy not Lnk$mapout (outbufr, .outsiz) ' OUTPUT BOTTOM OF BOX 
en 
return false; ! NO MORE OUTPUT, I/O FAILURE 
return true; ' SUCCESSFUL RETURN 
9 1 end; 
OFFC 00000 MAPBOX: .WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 
5B 00000000v EF 9E 9008 MOVAB LNKS$MAPOUT. R11 
3E FF7C ce 43 00 MOVAB -132(SP), §P 
03 000000006 0 6 000E BBS #5, LNKSGL_CTLMSK, 1$ 
0082 31 000 BRW 
57 6E : MOVAB OUTBUFR, CHPNTR 
b 04 AC p MOVL ADDR, R 
30 66 9A MOV ZBL (RG) R 
0 FF7C §6—COsé*9#E MOV -132(R0), RO 
20 9 C6 DIVL2 #2, R 
9 AE MNEGW RO, OUTSIZ 
59 6 A SUBW 48 OUTSIZ 
59 20 6E 5 2¢ mMOVCS #0. (SP), #32, OUTSIZ, (CHPNTR) 
57 ss DO MOVL 3, CHPNTR 
38 MOVL § CHPNTR, BOXPNTR 
28 MOVE #43, (CHPNTR)+ 
A A MOVZBL (ROS 
A ce SUBL 3, R10 
SA 20 6E C MOVCS #0. (SP), #45, R10, (CHPNTR) 
7 3 9 MOVL 3, CHPNTR 
7 VB #4$, (CHPNTR)+ 
Q A ROVZBL (R65, RO 
AO ADDW2 RO, OUTSIZ 
E 3¢ MOVZWL OUfSIZ, -(SP) 
06 AE OF S TBUFR 
0 FB CALLS #2, LNKSMAPOUT 
0 rH Shue L Rd) +20 
ts 01 A6 $8 8 vee RO, 1(R6), (BOXPNTR) 


Page 9 


(16 


; Routine Size: 


158 bytes, 


Routine Base: 


SCODES + 150D 


7 


i 


ht 


TS1Z, =(SP) 
TauFh 
fe, LNKSMAPOUT 
RO. 2$ 
#43, (BOXPNTR) 


1(R8), CHPNTR 
#0, (SP), #45, R10, (CHPNTR) 


R3, CHPNTR 

#43, (CHPNTR)+ 

ouTsiz, =(SP) 
TBUFR 

2, LNKSMAPOUT 

RO. 2$ 

#i, RO 

RO 


I$-Se0r1984 QO:DESHE YMGTL OLingcsz yeso-74g, | age, 95 


LWK _MAPROUT INES 
=000 


; Routine Size: 


; 2389 


ODODOOOO0OO 
Mmeun ~O 


ibesto-t9ge 99:05: 3ByAnatt aL 


ey — Appts (Linedesc) = 
n 


S ROUTINE IS CALLED BY CR ose REFERENCE TO OUTPUT 
H LINE OF the cogs S REFERENCE. 


LINEDESC ADDRESS OF A STRING DESCRIPTOR FOR THE LINE 


p 
lLinedesc : ref block C, byte); 


return Lnk$mapout (.linedesc Cdsc$a_pointer], -Linedesc Cdsc$w_length]) 
end; ' OF LNKSCRFOUT 
0000 00000 LNKSCRFOUT: 
«WORD Save nothin 
30 04 é5 Be 008 MOVL LINEDESC, R 
E MOVZ2WL (RO), -(SP) 
04 000 PUSHL 4(ROS 
00000000v_ EF 02 FB P 82006 cats #2, LNKSMAPOUT 


20 bytes, Routine Base: S$CODE$S + 15AB 


2938 


1 


s$-32 V4.0 
CILNKMAPRTN, f 2;1 


986 


2937 


? 
LINK _MAPROUT INES 18-5 “1 05: AX-11 Bliss-32 V4.0-74 p : 
ations rik eat a Ee tg Ce oe age 43) 


global routine lnk$mapout (addr, length) = 
! CONDITIONALLY OUTPUT A LINE OF THE MAP, CHECKING FOR NEW PAGE 


++ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE OUTPUTS A LINE OF DATA TO THE MAP FILE. 
INSERTS A NEW PAGE AND THE APPROPRIATE HEADERS WHENEVE 


FORMAL PARAMETERS: 


ADDR == ADDRESS OF THE ASCII STRING TO BE OUTPUT 
LENGTH == LENGTH OF THE ASCII STRING TO BE OUTPUT 


IMPLICIT INPUTS: 
THE MAP FILE MUST BE ALREADY OPEN. 
IMPLICIT OUTPUTS: 
THE OUTPUT LINE IS WRITTEN TO THE MAP FILE. THE PAGE COUNTER IS pattie 


If THE CURRENT PAGE IS FULL, A NEW PAGE WITH HEADER LINES IS OUTP 
BEFORE THE CURRENT OUTPUT LINE. 


TD 
a 


wr 


w 


ROUTINE VALUE: 


Ok kd a 
NOUR WN OOO NOMP WN ODS 


by Oo oF oF OY oY Oo et ot ot ot ot ae ae at eat ae ee et oe ee ee 


Be Oa Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Fe Se Ge Ge Ge Se Se Ge Ge Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Ge Se Geese Ge Ge 


NOVALUE 
COMPLETION CODES: 
NONE 
; SIDE EFFECTS: 
; NONE 
-™ 
begin 
1 map 
§ addr : ref vector C, byte); ' REFERENCE AN OUTPUT BUFFER 
literal 
5 lfchar = 10; ' LITERAL VALUE OF LINEFEED 
l 
blength, 
bptr, 
440 eptr, 
441 lptr; 
4G 
tek 
ver: 4 not .lnk$gl_ctlmsk Cink$v_manopn) ! IF THE MAP FILE IS NO LONGER 
en 
44 return true; ' OPEN, RETURN IMMEDIATELY 


<5 


Be Ge Be Se Se Se Se Fe Ge Fe Se Se Se Fe Se Se Se Se oe Se Ge Se Ge Fe Se Se oe Se Se Ge Ge Se Se © 


Sa ee 


rx 
ao 


46 


AC 


LS2SsSs 


SOOWODNAWNE UN $0 ONO UE WIN “CO OONOUS WN OVO 


Se 


A7 00000000" 


e? 000000006 + 


if .linecnt geq .ink$gb_linespp 
then 


if not newpage () then return false; 
ok. not (rmserror = Swait (rab = maprab)) 


“begin 

mapfail (); 
return false; 
end; 


bptr = .addr; 
sete = -bptr’ + sLongths 
blength = .length; 


- “a not (ch$fail (lptr = ch$find_ch (.blength, .bptr, lfchar))) 
0 


begin 
if not Lnk$mapout (.bptr, .lptr - 
then 

return false; 


blength = .blength - (.lptr = .bptr + 1); 


bptr = .lptr + 1; 
if .bptr geqa .eptr then return true; 
end; 


maprab 


rab$l_rbf] = betes 
maprab 


rab$w_rsz] = .blength; 
if not (rmserror = $put (rab = maprab)) 
then 
begin 
mapfail (); 
return .rmserror; 
end; 
Linecnt = .linecnt + 1; 


return true; 
end; 


3° 0006000" | 


orounn 
"Mm owor 
@OLloemmnn 


00000000V_ EF 


iSoseo-19Be 09:05:38 


-bptr - 1) 


AX-11 8 


Liss-32 V4. 
LINKER.SRC 


Eiinemarain. 682; :1 


! CHECK IF A NEW PAGE IS NEEDED 


AND OUTPUT IT IF SO GIVING UP ON FAILURE 
WAIT FOR POSSIBLE PREVIOUS 

OUTPUT AND 

REPORT ANY ERROR 

GIVING UP ON IT 


POINT TO START OF STRING 
COMPUTE END OF STRING 


! WRITE OUT THE LINE 


! UPDATE LENGTH LEFT TO WRITE 


SET THE RECORD ADDRESS IN RAB 
AND THE RECORD LENGTH 


AND OUTPUT IT 
YS AN ERROR REPORT 
AND GIVE UP 


! REPORT SUCCESS 


.EXTRN SYSSPUT 

.ENTRY LNKSMAPOUT, Save R2,R3,R4,R5,R6,R7,R8 
VAB PFAIL 

MOVAB RASERROR 
C a, tense. TLASK. 54 

CMPZV #0. #8, LNRSGB_LINESPP, LINECNT 

BGTR 1$° 

CALLS #0, NEWPAGE 


! LOOK FOR MULTI-LINE OUTPUT 


! INCREMENT NUMBER OF LINES OUTPUT ON CURRENT PAGE 


2B 


7 
UW AAPROUTINES IB-Se0-1984 00:05:38 YAK-I1 BLisg-$2 v4.0-742, Page 


r oo Ad $F 3008? ag BO TAR RAPRAS : 
000000006 09 1 Ff F CALLS #1, SYSSWAIT : $ 
6 D MOVL RO, RMSERROR : : 
3 i BLBS =—-RO, ; : 
6 re C CALLS #0. MAPFAIL : ; 
64 1 BRB : ; 
4 6 Ac 00 2$: MOVL. ADDR, BPTR : : 
56 4 8 aC C ADDL3 LENGTH, BPTR, EPTR : 3 
: AC DO O004A MOVL LENGTH, BLENGTH : : 
64 A 3A O004E 3S: LOCC #10, BLENGTH, (BPTR) : ; 
: : BNEQ 4$ : : 
D CLRL sR : F 
55 1 0 6 4$ MOVL 1, LPTR : ; 
4 1 ; BEQL 6$ : : 
53 55 4 § B SUBL3. PTR, LPTR, R3 : : 
FF =6A3. SF 0005F PUSHAB -1(R$) : ; 
34 DD 9062 PUSHL PTR : 
139D 8 FB 0 CALLS #2, LNKSMAPOUT : 
9 2 E9 00069 BLBC.—_«aRO, : 
50 : 3 006¢ SUBL3 3, BLENGTH, RO : 
5 FF Ap E 99 0 MOVAB -1(RO), BLENGTH : 
54 01 AS 9E 00074 MOVAB 1(R5), BPTR : 
56 54 01 00078 CMPL PTR, EPTR : 
D1 1 00078 BLSSU 3$ ; 
2 11 0007D 5$: BRB 8 : 
3¢ A? 4 00 OO7F 6$: MOVL  BPTR, MAPRAG+40 ; 
6 A? é BO 00083 MOV BLENGTH, MAPRAB+34 : 
04 A? 9F 00087 PUSHAB MAPRAB ; 
000000006 09 gi FB OO08A CALLS #1, SYS$PUT : 
6 0 pO 00091 MOVL RO, RMSERROR : 
07 50 € 90094 BLBS a F 
68 00 FB 0097 CALLS #0. MAPFAIL : 
50 67 DO O009A MOVL § RMSERROR, RO ; 
04 90090 RET ; 
AC A? D6 OO9E 7$: INCL _LINECNT : 
50 01 DO OO0Ai 8S: MOVL #1, RO : 
04 O00A4 RET : 
50 04 OOOAS 9S: CLRL ; 
04 000A7 RET ; 


; Routine Size: 168 bytes, Routine Base: S$CODES + 15BF 


: 2493 3041 1 


if .subhdrdsc eql 0 then return true; ! IF THERE IS NONE,RETURN 


“7 
LNK_MAPROUT INES 16-Sep-1984 :05: AX-11 Bliss-32 V4.0-74 pP 1 
042000 1er8een 188s 93:83:8% = Hticen SReScacMAPagN S251 age 199 
: 2495 § routine mapsubhdr (subhdrdsc, argi) = ! OUTPUT PAGE SUB HEADING 
; <38 begin 
: $t a hes 
; 199 § FUNCTIONAL DESCRIPTION: 
; abt 8 i THIS ROUTINE BUILDS A SUB-HEADER TITLE AND OUTPUTS IT TO THE MAP 
; 8 FILE. IT INITIALIZES THE AUTOMATIC MAP SUB-HEADER GENERATION. 
; 1 1 2 | FORMAL PARAMETERS: 
: 0 5 i SUBHDRDSC == ADDRESS OF 2 FAO CONTROL STRING DESCRIPTORS FOR THE SUB-HEADER 
3 23 4 ! WHICH IS ASSUMED TO BE TWO LINES LONG 
; 2508 055 2 CONSISTING OF UNDERLINED COLUMN HEADERS 
3; 2509 B28 ! ARG1 == FAO ARGUMENT FOR SUBHEADER WHICH WAS TOO LONG TO MAKE ONE 
: 319 036 : COUNTED ASCII STRING 
> 251 05 i IMPLICIT INPUTS: 
ba a ae 
: 2515 06¢ i 
: 218 bei IMPLICIT OUTPUTS: 
; si 065 i THE SUBHEADER IS SET UP AND WRITTEN TO THE MAP FILE. IT IS 
3: 251 ¥¢ ' STORED AS POSSIBLE OUTPUT ON FUTURE PAGES. SUBHDLINE IS 
: 2520 06 ' INITIALIZED TO CAUSE AUTOMATIC SUB-HEADER GENERATION. A BLANK 
: : 1 993 LINE IS OUTPUT FOLLOWING THE SUB-HEADER LINE. 
3 25 § 070 2 ! ROUTINE VALUE: 
: 2526 071 ‘ 
3; 2525 O38 : NOVALUE 
: 3 $ ah i COMPLETION CODES 
ee BR Sle 
; 2 1 O77 SIDE EFFECTS 
3 25 ; $99 i , 
: 3 44 NONE 
; 33 Os own 
: 235 ; extra_fao_arg; ! REMEMBER PREVIOUS VALUE OF ARG1 
; 338 0 5 builtin 
: 220 9 actualcount; 
: 2541 0 map 
: 26¢ 089 subhdrdsc : ref vector; ! POINTER TO DESCRIPTOR VECTOR 
: 3544 1 Local 
3; 2545 § fao_errcode, ' FAO ERROR CODE 
3 $48 subheading, ’ ' LENGTH OF FORMATTED LINE (RETURNED BY FAO) 
3: 254 subheadbuf : ehtoogvente (Len$c_mapline) | ' BUFFER FILLED BY FAO 
: 54 subheadbufdsc : vector (2); ' DESCRIPTOR OF ABOVE BUFFER 


SS3S 
wm 


Ww 
Wns 
-—o 


<o 
@ 


-MAPROUTINES 1$-se0- 138% 99: 93: 3 AX-11 Bliss-32 V4.0-7 Page 1 ; se 
' 


MA 
=000 LINKER. SRCJLNKMAPRTN. 5 231 (1 


ep aktuatenunt  eql 2 IF A SECOND ARGUMENT PRESENT, 


extra_fao_arg = .argl; REMEMBER FOR NEXT TIME 


LWNK 

v04 

3 0 

$ 1 

; 5355 i 

; $ 1 i subheadbufdsc 93 = Len$c_mapline; ' INITIALIZE i aren DESCRIPTOR 
: : ¢ subheadbufdsc = subheadbuf; ' FOR CALL TO F 

; 53 if not Lnk$mapout (subheadbuf, 0) ! SKIP A LINE 

3 hen 

: 6 : return false; 

3 es 1 nal from 0 to 2 by 2 !' LOOP TO DO BOTH LINES 

: 2565 18 begin 

: € 114 4 if not (fao_errcode = sys$fao (subhdrdsc C: ij, subheeding. subheadbufdsc, .extra_fao_arg)) 
; 56 132 & ! FORMAT THE NEXT LINE 

: 7 7 *M raotail (.fao_errcode); 

: sre 13 th not lnk$mapout (subheadbuf, .subhead|ng) ! OUTPUT IT 

3 hen 

3 278 : 1 return false; ! EXITING IF FAILURE 

; 376 § end; ! END LOOP TO INSERT SUBHEADER 
: 2578 125 subhdline = .subhdrdsc; ! SET & SUBHEADER ADDRESS 

3; 2579 1 $ return true; ' SUCCESSFUL RETURN 

; 2580 1 1 end; 


oogee -BLKB 2 
0025C EXTRA_FAO_ARG: 
~BLKB 4 
-PSECT S$CODES,NOWRT,2 
007C 00000 scuiomana’™ 


.WORD Save R2 R3, Ra, RS.R6 > 3042 
56 00000000" EF 9E 900 MOVAB EXTRA_FAO Rb ; 
FF4B  OCF:OOQE MOVAB LN NKSMAPOUT. Ree ; 
: FF70 CE 9 MOVAB <-144(SP), §P ; 
04 Ag D 1 MOVL § SUBHDRDSC, R3 : 3097 
55 1 1 BEQL 4s ; 
02 6¢ 91 00019 CMPB . #2 : 3099 
4 i iC BNEQ : 
a6 8 AC p 1 MOVL + EXTRA, FAO. ARG : 3101 
04 AE 4 8F 9A 1$: MOV ZBL iy SUBHEADBUFDSC ; 3103 
8 AE C AE 9 MOVAB sot CO BHEADBUFDSC +4 : 3104 
7E p C CLRL : 3106 
10 AE F F PUSHAB SAEADBUF : 
65 02 FB 000 CALLS » LNKSMAPOUT : 


| 

.PSECT SOWNS,NOEXE,2 
| 

| 

| 

E 


g 
LN _MAPROUT INES 16-Sep-1984 AX-11 Bliss-32 V4.0 Page 1 
¥04=000 Pree ee 08a ee ER SAETL eMAPRGN B82: ge 195 
38 5 e9 4 BLBC = RO,- S$ ; 
D4 7 CLRL : 3110 
6 BD 9 2%: PUSHL EXTRA_FAO_ARG + 3114 
08 AE OF PUSHAB SUBHERDBUFDSC ; 
AE 9F PUS : 
6342 DF 0004 : 
000000006 00 4 hb : 
4 9 D 4B F 
4 4 5D ¢ + 3117 
€c39 C5 1 FB : 
6E BD 3$: + 3119 
10 A F A 3 
5 FB 050 ; 
F E $0 3 
FFDO 52 2 Fi 006 : 3110 
FE68 £6 DO 00069 : 3125 
0 01 DO aon SS : 3126 
04 000 3 
50 D4 00072 5 : 3127 
04 00074 : 


; Routine Size: 117 bytes, Routine Base: SCODE$S + 1667 
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LNK_MAPROUTINES 1b-sep-1 9 :0 AX-11 Bliss-32 V4.0-7 Page 103 
V04=000 1er8ep=188e F3i23:8F = ener Shesiaemacagn. 6S2;1 9° 0) 
3 ¢ 3 } routine newpage = ! OUTPUT NEW PAGE, ITS HEADING AND SUBHEADER | : 
: 1 1 '44 | 3 
$ 5 : } FUNCTIONAL DESCRIPTION: : 
: 1 § 1 i THIS ROUTINE OUTPUTS A FORM FEED AND THE MAP HEADER LINE. IT ; 
; 134 «1 i CONDITIONALLY OUTPUTS A SUB-HEADER LINE. BALNK LINES FOLLOW ‘ 
; 2589 135 1 THE HEADERS. ; 
: 2590 1 § 1 i F 
3; 2591 1 1 | FORMAL PARAMETERS: ‘ 
: 35 1 1 i 3 
3 9 1 1 NONE $ 
3: 2594 140 1 3 
; 2595 141 1! IMPLICIT INPUTS: : 
3 9 14 1} NONE ; 
; 2598 144 1: 3 
; 208 re ! IMPLICIT OUTPUTS: : 
: vet 149 : A NEW PAGE WITH THE APPROPRIATE HEADERS IS WRITTEN TO THE MAP FILE. : 
: 260 149 1 | ROUTINE VALUE: : 
3 2604 150 1: 3 
3; 2605 151 1! NOVALUE 3 
3 one 136 1 i 3 
; 260 15 1 COMPLETION CODES: : 
: 2608 154 1: g 
: 2609 155 1 NONE : 
; 2610 128 1 5 
3; 2611 157 1! SIDE EFFECTS: : 
; ole 158 1: 3 
3; 261 159 1: NONE 
3; 2614 160 1! 
<n | ree 
3 egin 
3 617 188 ° 
: $18 164 local 
3; 261 165 fao_errcode, ' FAO ERROR CODE 
; 2620 166 hdrdsc : vector (2), ' HEADER BUFFER DESCRIPTOR 
3; 2621 16 hdrbuf : ch$sequence Clen$c_mapline], ' HEADER BUFFER 
3 ; § 188 hdrsiz; ! HEADER LINE LENGTH FROM FAO 
5 2624 170 2! 
3: 2625 171 linecnt = ' RESET COUNT OF LINES ON CURRENT PAGE 
: 26 $ it hdrdsc (03: = Len$c mapline; ' INITIALIZE THE HEADER BUFFER 
3; 26 17 hdrdsc = hdrbuf; ' DESCRIPTOR FOR FAO 
Be HBB 
> 2630 176 if not (fao_errcode = sys$fao (ff_cntrl_str, hdrsiz, hdrdsc)) 
3; 2631 17 then 
3: 26 § 18 begin 
3; 26 17 faofail (.fao_errcode); 
3; 26 180 return false;~ 
; 5 : 1 end; 
: : i ! § if not lnk$mapout (hdrbuf, .hdrsiz) then return false; 


LNK_MAPROUTINES 
V04=000 


003¢ 

55 000000006 00 9€ 
54 00000000" EF 9E 
53 4) a ae 
5E FF70 CE 9E 

FC AG B. 

F8 AD 84 8F 9A 
FC AD 04 AE 9E 
F8 AD OF 

04 AE 9F 

; 00000000" EF +4 

$3 08 
38 E 

6E 4 

63 08 03 44 

rf 5 £9 

4 OD 

000000006 4 

000000006 4 
seeeeed ' \y F 

4 AG OF 


OOoOQoooooooooooooooooooocooo 
SOOoOoOoooooooooooooooooooooSo 


Se ee ee ewe ee we nw we fofoieflolelololoelolq) 


PPV & EE 


ISseo-1984 09:05:48 


RON BONS MOO 


AX-11 Bliss-32 V4.0-74 


Page 104 
LINKER. SRCILNKMAPRIN.B32:1 age 38) 


if not ‘aallaot a ayentee (hdr _cntrl str, a1ordy hdrdsc, imagefilename, lnk$gq_startim 


dent ing, |nk$aw_version Clid$w_minor], 


or min 
T FORMAT HEADER LINE 


! REPORT ERROR 


! COUNT NEW PAGE 

! OUTPUT MAIN PAGE HEADING 
! GIVING UP ON FAILURE 

! SKIP A LINE 


OUTPUT SUB HEADING IF ANY 

IF PRINTING PSECTS NOW 

THEN PRINT SUMMARY FOR CURRENT PSECT 
! RETURN SUCCESS STATUS 


; 2639 185 

+ 2640 1 ent_lng, ink$Saw_verston Clid$w_ma 
3 2641 1 -pagenum)) tT 

: ots 1 3 then 

; 264 1 begin 

3 26446 1 y faofail (.fao_errcode); 

; 2645 19 return false; 

: or8 136 end; } 

3; 264 19 

3 “3 132 pagenum = .pagenum + 1; 

3 220 136 if not Lnk$mapout (hdrbuf, .hdrsiz) 

3 24 19 then 

; 26 § 138 return false; 

; 265 19 

3: 2654 00 if not Lnk$mapout (hdrbuf, 0) 

; 2655 01 then 

3 228 6 return false; 

: 265 0 

; 2658 04 mapsubhdr (.subhdline); ! 

: 2659 05 

; 2660 + if .psectnameline neq 0 ! 

: $e 08 wm htncnett t.gstebtenstinn, kaute peated 
: nk$mapout (.psectnameline, Len$c_mapline); ! 
; eg $08 

3 2664 10 return true; 

3; 2665 211. 1 end; 


NEWPAGE:.WORD Save R2,R3,R4,R5 
MOVAB SYSSFAO, R5 


MOVAB PAGENUM R4 
LNKSMAPOUT, R3 
“144(SP), §p 
32, HDRDSC 
HDRBUF, HDRDSC+4 
RDSC 
Rain 
#3; RY SSFAO 
RO, FAO_ERRCODE 
FAO_ERRCODE, 1$ 
HORSIZ 
HDRBUF 
#2, LNKSMAPOUT 
RO, 4$ 
PAGENUM 
LNK AW_VERSION#2 
LNKSAW_VERSION 
f2 


LNK$GQ_STARTIM 
IMAGEF TLENAME 
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LINK _MAPROUT INES 1b-5e -1984 00:05: AX-11 Bliss-32 V4.0-74 Page 105 
v04=000 1 ~30071 38% 90:03:39 YMINKER Se LNKMAPRTN.B32;1 . 383 
aD Sr RUSS pao : 
0000008 ' EF OF PUSHAB HOR_CNTRE STR : 
A fF F CALLS #107 SYSSFAO + 3186 
D MOVL RO, FAO ERRCODE : 
E 7% BLBS § FAO_ERRTODE, : 
DD 00077 1$ PUSHL FAO-ERRCODE + 3190 
EC39 C3 " Fe 79 CALLS #1, FAOFAIL ; 
31 7E BRB 4$ + 3191 
64 06 2s INCL  PAGENUM : 3194 
6E pd 0 PUSHL HDRSIZ + 3196 
08 AE OF PUSHAB HDRBUF : 
63 Fe 7 CALLS #2, LNKSMAPOUT : 
PY E A BLBC =—_—«aRO,._ «4S ; 
E b4 08D CLRL 3s. = ¢ §P) + 3200 
08 AE OF 00 F PUSHAB HDRBUF : 
63 9 Fe 0 é CALLS #2, LNKSMAPOUT : 
1B E9 0009 BLBC F 
04 Ad DD 00098 PUSHL  SUBHDLINE + 3204 
00A8 g3 01 FB 0098 CALLS #1, MAPSUBHDR : 
0 48 AG 00 OA MOVL § PSECTNAMELINE, RO + 3206 
9 13 OO0A4 BEQL : 
7E 84 BF 9A OOA6 MOVZBL #132, -(SP) : 3208 
0 DD OOOAA PUSHL R : 
3 02 FB OQOOAC CALLS #2, LNKSMAPOUT : 
0 1 DO OOOAF 38: MOVL #1. RO + 3210 
04 0089 RET : 
50 D4 000B3 4s: CLRL = RO : 3211 
04 00085 RET : 


; Routine Size: 182 bytes, Routine Base: S$CODE$S + 16DC 
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F ss 
vos=000— 1e-Sep-198e 12:40:31 ECTAKER: SRCSLAKMAPRTN.682; 1 


routine newline = ' ROUTINE TO OUTPUT A BLANK LINE 
! 


'ee 
FUNCTIONAL DESCRIPTION: 


Net! Bho reall 3 awe A BLANK LINE TO THE MAP FILE, UPDATING THE 


i FORMAL PARAMETERS: 
NONE 

i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 


! 

! 

i] 

' 

! 

! 

' 

' 

' 

] 

! 

' 

' 

i OUTPUTS A BLANK LINE TO THE MAP FILE. 
INCREMENTS THE LINE COUNTER. 
' 
' 
‘ 
] 
J 
' 
' 
] 
' 
' 
I 
! 
] 


<— 
oz 


at RRR SS 
UNISON R OI —~ 


i ROUTINE VALUE: 
NOVALUE 

69 i COMPLETION CODES: 
694 i NONE 
695 i 
696 ' SIDE EFFECTS: 
69 i 
698 NONE 
699 
700 cna 
701 begin 


OUTPUT A BLANK LINE 
AND GIVE UP IF IT FAILS 
REPORT SUCCESS 


if not Lnk$mapout (outline, 0) 
then 
return false; 


return true; 


WN (SO OBNAUES WN $0 ODONOAUES WN “OO ONOUSWN OOOO 


EDI DIDI a a st hh 


a] 
So 
roror srorMororornorn 


Ba Se Se Se Ge Se Se Se Be Se Gs Se Be Ge Ge Ge Se Se Se Se Se Ss He OH Ss Se Ss Oe Se Fe Se Se Se Se Oe ee Se Se Ss Sease 
AAD o 
SEeenES 
—oo w 

PUP SES BS BSE BB BE WII III INP) 


“ 

So 

~ 
Woe 


708 end; 
0000 00000 NEWLINE:.WORD Save nothing 
E Be CLRL ~(SP) 
00000000" EF 9F PUSHAB OUTLINE 
FETE F F aA CALLS #2, LEXSRAPOUT 
4 E F BLBC RO, 1$ 
0 1 00 \g MOVL - RO 
4 1 RET 
50 Be 1 1$: CLRL RO 
4 1 RET 


AX-11 Bliss-32 V4.0-7 


LINK _MAPROUT INES 18-se sep-1 
v04=000 LINKER. SRCJLNKMAPRTN. : 2;1 


-Sep-1 


< 93:20:37 


; Routine Size: 25 bytes, Routine Base: S$CODES + 1792 


: 2709 4 1 end 
3: e271 5 
; e71 6 0 eludom 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 3895 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; 08 NOVEC, WRI, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SGLOBALS 1 OVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 605 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Soa S « 0 NOVEC,NOWRT,NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
3 Library Statistics 
: wer eoeen Symbols eeeceecon Pages Processing 
3 File Total Loaded Percent Mapped Time 
; -$255$0UA28: CSYSLIBIJLIB.L32;1 18619 138 0 1000 00:02.0 
> 7$255$DUA28: CLINKER.OBJ JDATBAS.L32;1 538 63 11 28 00:00.8 
; COMMAND QUALIFIERS 
Hy BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKMAPRTN/OBJ=OBJ$:LNKMAPRTIN MSRC$:LNKMAPRTN/UPDATE=(ENHS$:LNKMAPRIN) 
; bg B 6059 code + 4715 data bytes 
3 Ti ans te ‘ 
3 Elapsed | ime: :38. 
3 Lines/CPU Min 162 
3 Lexenes/CPU-R “Min: 22141 
3; Memor i AS 581 pages 
3; Compi ation. Complete 
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